masquage de ligne automatique avec condition

Sub toto()
Dim x As Integer
Application.ScreenUpdating = False
Rows("1:65536").EntireRow.Hidden = False
For x = 1 To Range("A65536").End(xlUp).Row
    If Cells(x, 5) = Cells(x, 6) Then Rows(x).Hidden = True
Next
Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
 
dl = Range("A65536").End(xlUp).Row 'définit la variable dl (à adapter à ton cas)
 
'si le changement à lieu ailleurs que dans les cellules éditée de la collone F, sort de la procédure
If Application.Intersect(Target, Range("F2:F" & dl)) Is Nothing Then Exit Sub
If Selection.Cells.Count > 1 Then Exit Sub 'évite le bug de l'effacement de plusieurs cellules
 
'condition : si la colonne la valeur dans la colonne F est la même que celle de la colonne E
'et si elle n'est pas nulle
If Target.Value = Cells(Target.Row, 5).Value And Target.Value <> "" Then
    Rows(Target.Row).Hidden = True 'masque la ligne
End If 'fin de la condition
 
End Sub