Private Sub TextBox1_Change()
Dim cpt As Integer
Application.ScreenUpdating = False
Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Interior.ColorIndex = xlColorIndexNone 'définit la couleur de fond des cellules à 'Aucun remplissage'
ListBox1.Clear
If TextBox1 <> "" Then
For ligne = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
Cells(ligne, 2).Interior.ColorIndex = 42
ListBox1.AddItem
ListBox1.List(cpt, 0) = Cells(ligne, 2)
ListBox1.List(cpt, 1) = Cells(ligne, 3)
ListBox1.List(cpt, 2) = ligne
cpt = cpt + 1
End If
Next
End If
End Sub