....
....
Dim Lig As Long
If Me.TextBox1 = "" Then
Me.ListBox1.Clear
Exit Sub
End If
' Vider la liste
.....
.....
derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row
If derLig < 2 Then Exit Sub
derLig = Range("[COLOR="Red"]B[/COLOR]" & Cells.Rows.Count).End(xlUp).Row
If derLig < [COLOR="red"]3 [/COLOR]Then Exit Sub