If TextBox1 <> "" Then
For ligne = 15 To 300 'reprends les datas ci-dessus.
If Cells(ligne, 2) Like "*" & Ucase(TextBox1) & "*" Then
Range("A" & ligne & ":C" & ligne).Interior.ColorIndex = 43 'Donne la couleur verte des sélection après recherche.
ListBox1.AddItem Cells(ligne, 1) 'Cette ligne et ci-dessus détermine via les 'Propriétés' les espacement dans la ListBox.
ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(ligne, 4)
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(ligne, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(ligne, 3)
End If
Next
End If