Filtrer par rapport à un début de mot

Bonjour

J'ai effectué le Code suivant qui fonctionne pour filtrer des tableaux selon un mot entré dans une Textbox.

Cependant il ne filtre que par rapport au mot tel que je l'ai rentré.

J'aimerais qu'il filtre de la même façon mais pour tous les mots qui commencent par le mot rentré dans la Textbox.

Je vous pointe dans le code la ligne que j'aimerais modifer.

Private Sub CommandButton1_Click()
Dim C As Range
Dim NumLig  As Long
Dim tmp As Long
Dim J As Range
Dim LgTmp%
Dim Wst As Worksheet

NumLig = 4
tmp = NumLig
NumLig = tmp + 1
Sheets("UO filtrée").Activate
Sheets("UO filtrée").Range("A3:AX65500").Clear

For Each Wst In ThisWorkbook.Worksheets(Array("RCSA", "RCSV", "ALYZIA SURETE A", "ALYZIA SURETE V"))
    LgTmp = Wst.Range("J" & Rows.Count).End(xlUp).Row
     For Each C In Wst.Range("J5:J" & LgTmp)
         If C.Value = TextBox1.Value Then 

' Sur la ligne du dessus j'aimerais rajouter quelquechose comme (TextBox1.value & "*") , mais je ne connais pas la bonne syntaxe

           Wst.Range("C4").EntireRow.Copy
             Cells(tmp, 1).Select
             ActiveSheet.Paste
           Wst.Range("C5").EntireRow.Copy
             Cells(tmp + 1, 1).Select
             ActiveSheet.Paste
           C.EntireRow.Copy
           NumLig = NumLig + 1
             Cells(NumLig, 1).Select
             ActiveSheet.Paste
         ElseIf C.Value = ("Total " & TextBox1.Value) Then
           C.EntireRow.Copy
           NumLig = NumLig + 1
             Cells(NumLig, 1).Select
             ActiveSheet.Paste
  End If
 Next C

 NumLig = NumLig + 1
 tmp = NumLig
 NumLig = tmp + 1
Next Wst
Unload UserForm2
End Sub

Merci.

Bonjour

Sans pouvoir tester, donc non testé, essaie

If C.Value Like "*" &TextBox1.Value & "*" Then 

Cordialement

C'est parfait, Merci bcp!