Supression colonne entiere selon valeur

[Fab]

Bonjour,

Voilà j'ai la macro suivante qui me permet de supprimer une ligne entière lorsqu'un "0" est trouvé dans la colonne "F:F" par exemple.

Public Sub supprim()
For Each cel In Range("F:F")
If cel.Value = 0 Then
cel.EntireRow.Delete
End If
Next
End Sub

Je souhaiterai pouvoir faire l'inverse à savoir: rechercher sur toute une ligne (ligne 14 par exemple) et si je trouve un "0" je supprime la colonne correspondante en entier. J'ai fait des essais sur ma table mais ca plante... ca doit pas être très dur mais je dois faire une erreur sur la recherche dans la ligne je pense.

Qqun peut m'aider ?

Merci bcp

 

[Myta]

salut Fab

Public Sub Supprimer_Colonne()
Dim Cellule as Range
For Each Cellule In Range("14:14")
If Cellule.Value = "0" Then
Cellule.EntireColumn.Delete
End If
Next Cellule
End Sub

Mytå