Sub test()
Dim Vlig As Long
'*_*_*_*_*_*
'Pour connaître le numéro de l'avant dernière ligne
' en imaginant que la colonne de référence est la colonne A
With Sheets("Feuil1")
Vlig = .Cells(.Rows.Count, "A").End(xlUp).Row - 1
End With
'*'*'*'*'*'*'
' Pour la copier par exemple en A1 de la feuille 2
Sheets("Feuil1").Rows(Vlig).Copy Sheets("Feuil2").Range("A1")
End Sub