moteur de recherche

Private Sub TextBox1_Change()   
    Application.ScreenUpdating = False   
    Range("A2:A24").Interior.ColorIndex = 2
    ListBox1.Clear   
    If TextBox1 <> "" Then
        n = 0
        For ligne = 2 To 24
            If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 1).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(ligne, 1)
                ListBox1.List(n, 1) = Cells(ligne, 2)
                n = n + 1
            End If
        Next
    End If   
End Sub