Sub test()
Dim derlig As Long, dercol As Long, col As Long
Dim tb1 As Range, tb2 As Range, tb3 As Range
Application.ScreenUpdating = False
Feuil2.Range("a2:c80000").ClearContents
On Error Resume Next
With Feuil1
derlig = .Cells(Rows.Count, 1).End(xlUp).Row
dercol = .Range("a1").End(xlToRight).Column
For col = 1 To 9
Set tb1 = .Range(.Cells(2, col - 4), .Cells(derlig, col - 4).Address) 'Colonne E
Set tb2 = .Range(.Cells(2, col - 2), .Cells(derlig, col - 2).Address) 'Colonne G
Set tb3 = .Range(.Cells(2, dercol), .Cells(derlig, dercol).Address) 'Colonne I
Select Case col
Case tb1, tb2, tb3
tb1.Copy Feuil2.Range("a2:a" & derlig)
tb2.Copy Feuil2.Range("b2:b" & derlig)
tb3.Copy Feuil2.Range("c2:c" & derlig)
End Select
Next col
End With
End Sub