Bonjour Julast, bonjour le forum,
Non testé, essaie comme ça :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("C5")) Is Nothing Then
If Target.Value = "Tout" Then
With Worksheets("outil")
If .FilterMode = True Then .Range("$C$8:$C$20").AutoFilter
End With
Exit Sub
End If
If Target <> "" Then
With Worksheets("outil")
.Range("$C$8:$C$20").AutoFilter Field:=1
.Range("$C$8:$C$20").AutoFilter Field:=1, Criteria1:="*" & Target & "*"
.Activate
End With
End If
End If
End Sub