Ah oui c'est pas faux ahah
Je crois que j'ai trouvé la solution du coup, en tout cas sa marche avec ce code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("C5")) Is Nothing And Target <> "" Then
With Worksheets("outil")
.Range("$C$7:$C$20").AutoFilter Field:=1
.Range("$C$7:$C$20").AutoFilter Field:=1, Criteria1:="*" & Target & "*"
.Activate
End With
End If
End Sub