Suppression des colonnes si cellule 1 est égale a 0

Bonjour tout le monde

Voila, j'ai un petit soucis,

quel serais la macro pour faire:

de la colonne D a L supprimer la colonne si la 1ere cellule de la colonne (D1 pour colonne D ; E1 pour colonne E; ...etc) est égale a 0 (le 0 est issue d'une formule)

https://www.excel-pratique.com/~files/doc/supprime_colonne.xls

cordialement

PS: ne chercher pas le pourquoi, le fichier joint n'a d'interet que pour essayer la macro

Bonjour,

essaie ce code :

Sub supp()
Dim I As Integer
For I = 12 To 4 Step -1
    If Cells(1, I).Value = 0 Then Columns(I).Delete
Next I
End Sub

Bonsoir

c'est ce que je cherchais

merci beaucoup

a+