Bonjour,



Dim a()
Private Sub UserForm_Initialize()
a = [CLIENTS].Value
Me.ComboBox1.List = a
SendKeys "{F4}"
End Sub