Option Compare Text
Private Sub ListBox1_Click()
laLigne = ListBox1.List(ListBox1.ListIndex, 1)
ActiveWindow.ScrollRow = laLigne
End Sub
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("A2").CurrentRegion.Offset(1, 0).Interior.ColorIndex = 2
ListBox1.Clear
cpt = 0
If TextBox1 <> "" Then
For ligne = 2 To 60000
For colonne = 1 To 2
If Cells(ligne, colonne) Like "*" & TextBox1 & "*" Then
Cells(ligne, colonne).Interior.ColorIndex = 6
ListBox1.AddItem Cells(ligne, colonne)
ListBox1.List(cpt, 1) = ligne
cpt = cpt + 1
End If
Next
Next
End If
End Sub