Zone de recherche listbox/textbox

Bonjour à tous,

Dans mon formulaire, j'ai une listbox1 qui est sensée me restituer les éléments contenant les mots clés saisis dans la textbox1 nommée "CHERCHE".

Private Sub CHERCHE_Change()
    Application.ScreenUpdating = False
    ListBox1.Clear
   

    
Dim L As Long
L = Sheets("BASE").Range("BC65536").End(xlUp).Row 'ici on récupére un nb qui représente la dernière ligne utilisée dans la colonne BC
'     Range("Bc2" & L).Interior.ColorIndex = 2
    If CHERCHE <> "" Then
        For ligne = 2 To L
            If Cells(ligne, 55) Like "*" & TextBox1 & "*" Then
             Cells(ligne, 55).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(ligne, 55)
            End If
        Next
End If

End Sub

Je n'arrive pas à faire fonctionner la recherche par mots clés, quelle que soit la saisie dans la textbox1 toutes les informations contenues dans la colonne BC remontent sans tenir compte de la saisie le filtre n'opère pas.

Je joins un fichier pour que cela soit plus compréhensible.
http://www.cjoint.com/c/FKtpYDuINw6

merci pour votre aide
Bonne soirée
Mag