XL 2013 Supprimer 1 colonne sur deux

[nicroq]

Bonjour,

je n'arrive pas a trouver une solution par vba pour supprimer une colonne sur deux en commencant de la colonne B.

en vous remerciant pour votre aide

Cordialement

 

[Lone-wolf]

Bonjour nicro

Le nom de la feuille est à adapter.

With Sheets("Feuil1")
NbCol = .UsedRange.Columns.Count
For i = 2 to Nbcol Step 1
.Cells(1, i).EntireColumn.Delete
next i
End With

 

[nicroq]

Super!! c est top!
merci bcp