Sub Copie()
Dim Ligne As Long
'Trouve la derniere ligne renseignée de la colonne A et ajoute 1 pour trouver la première ligne vide
Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1
'Transfert de A1 vers la lgine cible
Range("A" & Ligne) = Range("A1")
End Sub