Sub test()
Dim derlig&, tabloCol, tablo As Range, n&
Application.ScreenUpdating = False
Feuil2.Range("a2:c80000").ClearContents
With Feuil1
derlig = .Cells(Rows.Count, 1).End(xlUp).Row
Set tablo = .Range(.Cells(2, "a"), .Cells(derlig, "i"))
For Each tabloCol In Array(5, 7, 9)
tablo.Columns(tabloCol).Copy Feuil2.Range("a2").Offset(, n)
n = n + 1
Next tabloCol
End With
End Sub