"Sheets("Feuille1").Activate
Range("A:L").End(xlDown).Select
Selection.Copy
Sheets("Feuille2").Activate
Range("A1").Paste
Sheets("Feuille3").Activate
Range("A:L").End(xlDown).Select
Selection.Copy
Sheets("Feuille2").Activate
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Paste "