424 objet requis

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

            End If
        Next
    End If
 
End Sub