Private Sub ComboBox1_Change()
'....
'....
End Sub
Private Sub UserForm_Initialize()
Dim I As Byte
[COLOR="Green"]'Utilisation d'une boucle for pour définir les item de la combobox
'l'utilisation de la propriété RowSource n'est pas compatible sur Mac[/COLOR]
For I = 1 To 2
ComboBox1.AddItem [Feuil1].Cells(I, 4)
Next I
[COLOR="green"]'Attention à la gestion des événements .change sur mac
'La ligne ci-dessous va lancer l'événement ComboBox1_Change, la procèdure d'initialisation de l'userform
'sera interrompu, et éxécutera le code de l'événement[/COLOR]
ComboBox1.ListIndex = 0
End Sub