Option Compare Text
Private Sub TextBox1_Change()
Dim ligne As Long, DL As Long
Application.ScreenUpdating = False
DL = Sheets("FORMULES").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
ListBox1.Clear
If TextBox1 <> "" Then
ListBox1.Clear
For ligne = 6 To DL
If Sheets("FORMULES").Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
ListBox1.AddItem Sheets("FORMULES").Cells(ligne, 1)
End If
Next ligne
End If
End Sub