L'équivalent de ''like pou qui contient

Bonjour

Ma question est la suivante, j'arrive maintenant à filtrer ma listbox à travers des textbox et ça fonctionne bien sauf que je souhaite que le filtre foctionne en '' qui contient" et non pas "qui commence par"

Je m'explique, je veux que si j'écris en textbox1 par exemple "Pierre'' j'aurais comme filtre ''Pierre Philippe" mais aussi ''Jean Pierre"

voici mon code que je vous prie de m'aider à l'améliorer

Sub Affiche()
     Dim b()
     tmp1 = Me.TextBox1 & "*"
     tmp2 = Me.TextBox2 & "*"
     tmp3 = Me.TextBox3 & "*"
     n = 0
     For I = LBound(TblBD) To UBound(TblBD)
       If TblBD(I, 6) Like tmp1 And TblBD(I, 4) Like tmp2 And TblBD(I, 1) Like tmp3 Then
         n = n + 1: ReDim Preserve b(1 To NbCol + 1, 1 To n)
         For k = 1 To NbCol + 1: b(k, n) = TblBD(I, k): Next k
       End If
      Next I
      If n > 0 Then Me.ListBox1.Column = b Else Me.ListBox1.Clear
End Sub

Bonjour,

tmp1 = "*" & Me.TextBox1 & "*"

MERCI