Copier coller une ligne

Bonjour à tous,

En remplissant mon tableau, je souhaiterais une macro pour qu'à chaque nouvel enregistrement elle copie la dernière ligne entière sur la ligne du dessous pour éviter de ressaisir 95% des mêmes informations et ne modifier que les 5% qui restent.

Un simple copier coller suffirait mais le tableau comporte beaucoup de colonnes et glisser de gauche à droite jusqu'au bout du tableau fait perdre pas mal de temps ...

merci d,avance de votre aide

J'ai finalement trouvé.

Voici le code

Sub copie()

Sheets("feuil1").Select

Dim derligne As Long

'Ici l'on trouve la derniere ligne de la colonne A

derligne = Range("A" & Rows.Count).End(xlUp).Row

Rows(derligne).Copy Destination:=Rows(derligne + 1)

End Sub