Sub CopyColonne()
Dim DerCol As Long, ColDep As Long, NumCol As Long, DerLig As Long, NouvCol As Long
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Worksheets("Feuil1")
Set WS2 = Worksheets("Feuil2")
ColDep = ActiveCell.Column ' N° de la cellule active
DerCol = WS1.Cells(1, Columns.Count).End(xlToLeft).Column
For NumCol = ColDep To DerCol Step 2
DerLig = WS1.Cells(Rows.Count, NumCol).End(xlUp).Row
NouvCol = NouvCol + 1
WS1.Range(WS1.Cells(1, NumCol), WS1.Cells(DerLig, NumCol)).Copy WS2.Cells(1, NouvCol)
Next
End Sub