Hello,
Voici le code VBA à lancer ci dessous:
Sub test()
dc = Cells(1, Columns.Count).End(xlToLeft).Column
For y = 1 To dc
Sheets("Feuil1").Activate
dl = Cells(Rows.Count, y).End(xlUp).Row
Range(Cells(1, y), Cells(dl, y)).Copy
Sheets("Feuil2").Activate
dl2 = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & dl2 + 1).PasteSpecial xlPasteValues
Next
End Sub