Bonsoir PhLaurent55
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...