Sub test()
dercol = Sheets("Feuil2").Cells(1, Sheets("Feuil2").Cells.Columns.Count).End(xlToLeft).Column
Sheets("Feuil1").Columns("D").Copy Sheets("Feuil2").Columns(dercol + 1)
End Sub
Ce code réajuste toute les colonnes à la fin de la procédure
Sub test()
dercol = Sheets("Feuil2").Cells(1, Sheets("Feuil2").Cells.Columns.Count).End(xlToLeft).Column
Sheets("Feuil1").Columns("D").Copy Sheets("Feuil2").Columns(dercol + 1)
Sheets("Feuil2"..EntireColumn.AutoFit
End Sub