Rechercher un mot dans une colone de titres

Option Explicit

Private Sub CommandButton1_Click()
    If (TextBox1.Text = "") Then Exit Sub
    '
    Dim DL As Long, PL As Long, Col As Long, i As Long, j As Long
    Dim Trouve As Boolean, Chaine(2) As String
    '
    PL = 1
    Col = 1
    DL = Columns(Col).Find("*", , , , xlByColumns, xlPrevious).Row
    If (DL < 1) Then Exit Sub
    '
    Trouve = False
    Chaine(0) = LCase(TextBox1.Text) & " *"
    Chaine(1) = "* " & LCase(TextBox1.Text)
    Chaine(2) = "* " & LCase(TextBox1.Text) & " *"
'    MsgBox Chaine
    Me.ComboBox1.Clear
    For i = PL To DL
        For j = 0 To 2
            If (LCase(Cells(i, Col).Value) Like Chaine(j) = True) Then
                Me.ComboBox1.AddItem Cells(i, Col).Value
                Trouve = True
            End If
        Next j
    Next i
    If (Trouve = False) Then
        MsgBox "Le mot """ & TextBox1.Text & """ n'a pas été trouvé !" & vbCrLf & _
               "Veuillez réessayer avec un autre mot.", _
               vbExclamation, _
               "Recherche infructueuse !"
        TextBox1.SetFocus
        TextBox1.SelStart = 0
'        TextBox1.SelLength = Len(TextBox1.Text)
'        TextBox1.SelText = Len(TextBox1.Text)
        TextBox1.SelLength = Len(TextBox1.Text)
    End If
End Sub

Private Sub UserForm_Activate()
    Call InitializeListe
End Sub

Private Sub InitializeListe()
    Dim DL As Long, PL As Long, Col As Long, i As Long
    '
    PL = 1
    Col = 1
    DL = Columns(Col).Find("*", , , , xlByColumns, xlPrevious).Row
    If (DL < 1) Then Exit Sub
    '
    For i = PL To DL
        Me.ComboBox1.AddItem Cells(i, Col).Value
    Next i
End Sub