Bonjour
A tester
Option Compare Text
Private Sub TextBox1_Change()
Dim Cl As Long
Application.ScreenUpdating = False
Range("G8:GH8").Interior.ColorIndex = 2
ListBox1.Clear
If TextBox1 <> "" Then
For ligne = 8 To 8
For colonne = 7 To 250
If Cells(ligne, colonne) Like "*" & TextBox1 & "*" Then
Cells(ligne, colonne).Interior.ColorIndex = 43
Application.Goto Cells(ligne, colonne), Scroll:=True
ActiveWindow.SmallScroll Down:=-7
ListBox1.AddItem Cells(ligne, colonne)
End If
Next
Next
End If
End Sub