Dim a()
Private Sub UserForm_Initialize()
a = [listeVilles].Value
Me.ComboBox1.List = a
End Sub
Private Sub ComboBox1_Change()
Set d1 = CreateObject("Scripting.Dictionary")
tmp = UCase(Me.ComboBox1) & "*"
For Each c In a
If c Like tmp Then d1(c) = ""
Next c
Me.ComboBox1.List = d1.keys
Me.ComboBox1.DropDown
End Sub
Private Sub CommandButton1_Click()
ActiveCell = Me.ComboBox1
For i = 1 To 6
p = Application.Match(Me.ComboBox1, a, 0)
ActiveCell.Offset(, i) = Sheets("villes").Cells(p + 1, i + 1)
Next i
Unload Me
End Sub