Sub Etirer()
Dim Co%, li%, i%
With Feuil1
Co = .Cells(1, Columns.Count).End(1).Column
li = .Cells(Rows.Count, 1).End(3).Row
For i = 1 To Co
If i Mod 2 = 0 Then 'Etirer les colonnes Pairs
'If Not i Mod 2 = 0 Then 'Etirer les colonnes impairs
Range(.Cells(1, i), .Cells(li, i)).FillDown
End If
Next i
End With
End Sub