Sub a()
Dim Colonnes, i&, derlig&
'ici adapter avec le noms des vrais feuilles
derlig = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row
Colonnes = Array("E", "F", "G", "C", "H", "I", "K", "L", "M", "O", "Q")
For i = LBound(Colonnes) To UBound(Colonnes)
'ici adapter avec le noms des vrais feuilles
Feuil2.Cells(2, Colonnes(i)).Resize(derlig).Copy Feuil1.Cells(5, i + 1)
Next
End Sub