Dim a()
Private Sub UserForm_Initialize()
a = Application.Transpose([liste])
Me.ComboBox1.List = a
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
Me.TextBox1 = ""
Else
p = Application.Match(Me.ComboBox1, a, 0)
For i = 1 To 4
Me("textbox" & i) = Range("info")(p).Offset(, i - 1)
Next i
End If
End Sub