Là, il prend le premier si on appuie sur Entrée.
Dim a()
Private Sub UserForm_Initialize()
Set f = Sheets("feuil1")
a = Application.Transpose(f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value)
Me.Combobox1.List = a
End Sub
Private Sub ComboBox1_Change()
If Me.Combobox1.ListIndex = -1 Then
Me.Combobox1.List = Filter(a, Me.Combobox1.Text, True, vbTextCompare)
Me.Combobox1.DropDown
End If
End Sub
Private Sub ComboBox1_Click()
Me.TextBox1 = Me.Combobox1
End Sub
Private Sub Combobox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Me.TextBox1 = Me.Combobox1.List(0)
End Sub
Boisgontier