Bonjour Patrick,
voici un code qui pourra t'aider, attention, dans mon code je dis que ta première ligne est A1
Range("A65536").Select
Selection.End(xlUp).Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Penses à utiliser l'enregistreur Macro's
Johan