Pbm macro masquer ligne si valeur 0 ds cellule

Bonjour tout le monde,

J'ai un problème avec une macro qui me permet de masquer les lignes pour lesquelles il y a une valeur zéro dans certaines plages de la colonne C, elle bug :

Sub Masquer_ligne_saisie()
' masque les lignes ou la valeur dans les cellules de la colonne C sont =0
Dim cellule As Range
For Each cellule In Range("C4:C156, C204:C356, C404:C556, C604:C756, C804:C956, C1004:C1156")
If cellule.Value = "0" Then cellule.EntireRow.Hidden = True    'pbm débogage à ce niveau 
Next cellule

End Sub

Sub Afficher_Lignes_saisie()
Dim cellule As Range
For Each cellule In Range("C4:C156, C204:C356, C404:C556, C604:C756, C804:C956, C1004:C1156")
If cellule.Value = "0" Then cellule.EntireRow.Hidden = False
Next cellule

End Sub

Avez vous une idée ?

Bonsoir,

Proposition avec application.union.

A adapter pour tes besoins.

Cdlt

Merci pour cette macro.

Bonne soirée !