Microsoft 365 Dernière ligne non vide

[walido78]

Bonjour,
Je viens vers vous parce que j'ai un problème :
Pourriez-vous m'aider en fait pour corriger la boucle, je veux que ce soit jusqu'a la dernière ligne non vide au lieu de A200

Sub CopieColonneA() 'Copie la Colonne A de Retenue à la colonne A de AMT
 FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
  Worksheets("Retenue").Range("A3:A200").Copy _
    Destination:=Worksheets("AMT").Range("A3")
    
End Sub

 

[youky(BJ)]

Salut bien,
Petite solution facile
Bruno

Sub CopieColonneA() 'Copie la Colonne A de Retenue à la colonne A de AMT
 FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
  Worksheets("Retenue").Range("A3:A" & FinalRow).Copy _
    Destination:=Worksheets("AMT").Range("A3")
End Sub