Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ListBox3.Clear
If Len(TextBox3) < 3 Then Exit Sub
If TextBox3 = "" Then Exit Sub
With Sheets("BD").[A2:A65536]
Set c = .Find(TextBox3, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ListBox3.AddItem .[Cells(c.Row, 1)
ListBox3.List(ListBox3.ListCount - 1, 1) = c.Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
'ListBox3.Selected(0) = True
End Sub