[ziopizza]

Bonjour Djeanmi,mcz29,
Un petit exemple à adapter

Sub copi()
'pour la feuille active
Dim Lg As Long
Lg = Range("A65536").End(xlUp).Row 'ici lg devient la derniere ligne
Ici Ta selection de cellules.Copy
Rows(Lg + 1).Select
ActiveSheet.Paste
End Sub

mcz29 a raison un petit exemple de ton fichier, et cela serais plus facile pour expliquer
Salut Yves