Salut,
A tester si j'ai bien compris tu veux uniquement les colonnes paires, à coller dans un module si c'est pas que tu veux reviens nous voir.
Const NomFimporT As String = "telechargement" 'le nom de ta feuille où tu vas récupérer tes données
Const NomF1 As String = "Intermédiaire" 'nom ou tu mets les données
Dim T
Sub Princ()
Application.StatusBar = "Patience, importation en cours"
Dim I As Byte
Ouverture
If IsArray(T) Then
With Sheets(NomF1)
.[A1].Resize(UBound(T, 1), UBound(T, 2)) = T
For I = LBound(T, 2) To UBound(T, 2) Step 2
.Columns(I).Delete
Next I
End with
End If
Application.StatusBar = ""
End Sub
Private Function Ouverture()
Dim Clas As Workbook
On Error Resume Next
Application.ScreenUpdating = False
Set Clas = Workbooks.Open(OuvP)
With Clas
T = .Worksheets(NomFimporT).UsedRange
.Close 0
End With
On Error GoTo 0
End Function
Private Function OuvP()
OuvP = Application.GetOpenFilename("Fichiers Excel (*.xls),*.xls")
End Function
A+++