Private Sub Worksheet_Change(ByVal Target As Range)
' Si modification de la cellule C1
If Target.Address(0, 0) = "C1" Then
' Si la cellule contient une valeur
If Target.Value <> "" Then
' Filter sur cette valeur
Range("A3:C3").AutoFilter Field:=3, Criteria1:="=*" & Target.Value & "*"
Else
' Supprimer le filtre
Range("A3:C3").AutoFilter Field:=3
End If
End If
End Sub