Suppression colonnes

Bonjour,

J'ai (sur un tableau à multiples colonnes) besoin de supprimer les colonnes "ventes"

Exemple

Stock Vente Stock Vente Stock Vente

Comme je n'ai pas l'intention de les sélectionner une à une ...

Merci de votre aide

Bonjour,

si le mot "Vente" en sur la ligne 1

For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If Cells(1, i) = "Vente" Then Columns(i).Delete Shift:=xlToLeft
Next

Merci pour cette réponse

Merci pour ce retour, au plaisir!

ps/ Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu.