Private Sub Worksheet_Change(ByVal Target As Range)
Dim derlig As Long, t, refNom, refPoste, i As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("a3,b3")) Is Nothing Then Exit Sub
If Me.FilterMode Then Me.ShowAllData
UsedRange.EntireRow.Hidden = False
derlig = Cells(Rows.Count, "a").End(xlUp).Row
If derlig <= 7 Then Exit Sub
t = Range("a8:b" & derlig).Value
refNom = Range("a3").Value & "*"
refPoste = Range("b3").Value & "*"
For i = 1 To UBound(t)
Rows(i + 7).Hidden = Not (t(i, 1) Like refNom And t(i, 2) Like refPoste)
Next i
End Sub