Filtrer les données avec "contient" avec recherche dans cellule

Public Filtre As String
Sub RechercheAvecFiltre()
    Application.ScreenUpdating = False
    Derlig = [A10000].End(xlUp).Row
    DerCol = [ZZ3].End(xlToLeft).Column
    If AutoFilterMode Then
        isOn = "On"
    Else
        isOn = "Off"
        Range(Cells(3, "A"), Cells(3, DerCol)).AutoFilter
    End If
    ActiveSheet.Range(Cells(3, "A"), Cells(Derlig, DerCol)).AutoFilter Field:=1, Criteria1:=Filtre
    NbVAl = Range("_FilterDataBase").Resize(, 1).SpecialCells(xlCellTypeVisible).Count - 1
    If NbVAl = 0 Then
        ActiveSheet.AutoFilterMode = False
        Cells(Derlig + 1, "A").Value = [C1]
    End If
End Sub

Sub Ajout()
    Application.ScreenUpdating = False
    DerLig = [A10000].End(xlUp).Row
    Set c = Range("A6:A" & [A10000].End(xlUp).Row).Find([A2], LookIn:=xlValues)
    If c Is Nothing Then
        Cells(DerLig + 1, "A") = [A2]
        Worksheets("Feuil1").Range("A2").ClearContents
        ActiveSheet.AutoFilterMode = False
        
        'Tri par ordre alphabétique
        [A5].Select
        ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=ActiveCell, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Feuil1").Sort
            .SetRange ActiveCell.Range("A2:A" & [A10000].End(xlUp).Row)
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    Else
        Worksheets("Feuil1").Range("A2").ClearContents
    End If
End Sub

Set c = Range("A6:A" & [A10000].End(xlUp).Row).Find([A2], LookIn:=xlValues)

Set c = Range("A6:A" & [A10000].End(xlUp).Row).Find([A2], LookIn:=xlValues, lookat:=xlWhole)

Set c = Range("A6:A" & [A10000].End(xlUp).Row).Find([A2], LookIn:=xlValues)

Set c = Range("A6:A" & [A10000].End(xlUp).Row).Find([A2], LookIn:=xlValues, lookat:=xlWhole)

Worksheets("Feuil1").Range("A2").Select

  Target.Select

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$C$2" Then
        Filtre = Target
        RechercheAvecFiltre
    ElseIf Target.Address = "$A$2" Then
        Mot = Target
        Ajout
    End If
    Target.Select
    Application.EnableEvents = True
End Sub