Masquer et afficher des lignes

Bonjour,

dans le fichier joint, je cherche un code pour pouvoir masquer des lignes sur la plage A11:D100 (surligner en jaune) si

(x correspond à un N° de ligne entre 11 et 100)

Bx = 0€ et Cx = 0€ et aussi Dx = 0€ alors masquer la ligne.; sinon afficher la ligne.

Cordialement

Galiax

Bonjour,

Sub masquer()
    Dim datas, lig As Long
    datas = [B1:D100]
    For lig = 11 To 100
        Rows(lig).EntireRow.Hidden = Cells(lig, 2) = 0 And Cells(lig, 3) = 0 And Cells(lig, 4) = 0
    Next lig
End Sub

Sub afficher_tout()
    [B11:B100].EntireRow.Hidden = False
End Sub

eric

Bonjour

Bonjour à tous

Une variante à toutes fins utiles

Bye !