Private Sub TextBox3_Change()
[COLOR=red]If Len(TextBox3) = 3 Then
[/COLOR]TextBox1 = ""
TextBox2 = ""
TextBox3 = UCase(TextBox3)
tableau = Range("A2:C" & Range("A65536").End(xlUp).Row)
ListBox1.Clear
For n = LBound(tableau, 1) To UBound(tableau, 1)
If Left(tableau(n, 3), Len(TextBox3)) = TextBox3 Then
ListBox1.AddItem tableau(n, 3)
End If
Next n
[COLOR=red]End If
[/COLOR]End Sub