Masquage auto de lignes en VBA

Sub Macro1()
Dim cel As Range 'déclare la variable cel
Dim li As Integer 'déclare la variable li
 
With Sheets("Feuil1") ' tu asdapteras à ton cas
 
    'boucle sur toutes les cellules éditées de la colonne A (tu adapteras)
    For Each cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        li = cel.Row 'définit la variable li
 
        'condition : si la cellule associée de la colonne C = "mauvais attendu"
        'et la cellule associée de la colonne E est vide
        If Cells(li, 3).Value = "mauvais attendu" And Cells(li, 5).Value = "" Then
            cel.EntireRow.Hidden = True 'masque la ligne
        Else 'sinon
            cel.EntireRow.Hidden = False 'afficheula ligne
        End If 'fin uide la condition
 
    Next cel 'prochane cellule de la plage
 
End With
 
End Sub