Bonjour,

Je cherche à copier la valeur contenue dans une cellule (H21) dans la première cellule vide de ma colonne AM.

J'ai bien trouvé un code qui me permet d'identifier la dernière cellule vide de la colonne AM et me renvoie l'info dans un MsgBox.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Derniere_Cellule()
 
Dim dercel As Long
 
dercel = Cells(Rows.Count, 39).End(xlUp).Row   '39 = colonne AM
 
MsgBox dercel
 
End Sub
Mais après je bloque complètement. Je n'arrive pas à rendre active la cellule vide et y copier la valeur de H21, malgré de nombreuses tentatives.

Je précise que mes connaissances en VBA sont très limitées.

Merci pour votre aide.