recherche partielle

Private Sub TextBox3_Change()
Dim H As Integer, Ing As Variant, Pers As Variant
If TextBox3 = "" Then
ListBox1.Clear
ListBox1.BackColor = &HFFFFFF
Exit Sub
End If
ListBox1.Clear
Ing = Split(TextBox3.Value, " ")
With Worksheets("Tool_Dossiers")
    If .Range("L8") = " " Then Exit Sub
'    For H = H + 1 To .Range("A65536").End(xlUp).Row - 7
    For H = 8 To .Range("A65536").End(xlUp).Row
        Pers = Split(.Range("L" & H).Value, " ")
        If UBound(Ing) = 0 Then
          If UBound(Pers) = 1 Then
            If UCase(Pers(0)) Like UCase(Ing(0)) & "*" Or UCase(Pers(1)) Like UCase(Ing(0)) & "*" Then ListBox1.AddItem .Range("A" & H).Value
          Else
            If UCase(Pers(0)) Like UCase(Ing(0)) & "*" Then ListBox1.AddItem .Range("A" & H).Value
          End If
        Else
'        If Left(.Range("L8").Cells(H, 1), Len(TextBox3)) = TextBox3 Then ListBox1.AddItem .Range("A8").Cells(H, 1)
          If UBound(Pers) = 1 And Ing(1) <> "" Then
            If (UCase(Pers(0)) Like UCase(Ing(0)) & "*" And UCase(Pers(1)) Like UCase(Ing(1)) & "*") Or (UCase(Pers(1)) Like UCase(Ing(0)) & "*" And UCase(Pers(0)) Like UCase(Ing(1)) & "*") Then ListBox1.AddItem .Range("A" & H).Value
          End If
        End If
    TextBox3.BackColor = &HFFFFFF
    ListBox1.BackColor = &HC0C0FF
    Next H
End With
End Sub