Masquer des lignes sur plusieurs onglets

Bonjour à tous,

je rebondis sur un ancien poste, car je souhaite faire la même chose mais sur tous les onglets.

Je m'explique, je voudrais masquer des lignes en fonction d'une valeur (zéro) de cellule, et ce sur tous les onglets.

J'ai mis ce code.

J'ai bien l’inscription de "à faire" (juste à titre de test) dans tous mes onglets, mais le masquage des lignes ne se fait que sur le 1er onglet.

Avez vous une idée ?

Merci d'avance pour votre retour

Sub Zero()

Dim feuilleFin As Variant

Dim Cel As Range

feuilleFin = Sheets.Count

For a = 1 To feuilleFin

Sheets(a).Range("a4") = "A faire"

For Each Cel In Range("A2:A10")

If Cel.Value <> "" And Cel.Value = 0 Then

Cel.EntireRow.Hidden = True

End If

Next Cel

Next a

End Sub

Sub Affiche()

Cells.Select

Selection.EntireRow.Hidden = False

Range("A1").Select

End Sub

Bonjour

Remplace les codes par ceux ci-après

Sub Zero()
Dim Cel As Range
Dim a As Integer
For a = 1 To ThisWorkbook.Sheets.Count

    Sheets(a).Range("a4") = "A faire"
    For Each Cel In Sheets(a).Range("A2:A10")
        If Cel.Value <> "" And Cel.Value = 0 Then Cel.EntireRow.Hidden = True
    Next

Next a
End Sub

et

Sub Affiche()
Dim a As Integer
For a = 1 To ThisWorkbook.Sheets.Count
    Sheets(a).Cells.EntireRow.Hidden = False
Next
End Sub

Si ok, lors de ta réponse, clique sur le V vert à voté du bouton EDITER pour clôturer le fil

Crdlt

Bonjour, un exemple pour masquer les lignes du classeur entier

Sub masquerligne()
    Dim f As Worksheet
    For Each f In Worksheets
        For a = f.Cells(Rows.Count, 1).End(xlUp).Row To 5 Step -1
            If f.Cells(a, 1) = 0 Then Rows(a).EntireRow.Hidden = True
        Next
    Next
End Sub

Et pour démasquer juste la feuille active

Sub demasquerligne()
ActiveSheet.UsedRange.EntireRow.Hidden = False
End Sub

Excellent, merci pour vos réponses.

Ça marche nickel !!!