Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [B6]) Is Nothing Then
On Error GoTo Fin
Dim L%, DL%, T
Application.ScreenUpdating = False
DL = Range("A65500").End(xlUp).Row
T = Range("A7:A" & DL)
Range("A7:A" & DL).EntireRow.Hidden = True ' Masque toutes les lignes
If Target <> "" Then
Application.EnableEvents = False
For L = 1 To UBound(T)
If LCase(T(L, 1)) Like LCase("*" & Target & "*") Then Cells(L + 6, "A").EntireRow.Hidden = False...