VBA remplir combobox

Bonjour,
Je recommence le VBA et j'ai du mal:
j'essaye de mettre les valeurs de 1 à 4 dans une combobox. Voila ce que j'ai écris:

Private Sub ComboBox1_Change()
Dim i As Integer
For i = 1 To 4
UserFormMat.ComboBox1.AddItem i
Next
End Sub

Malheureusement quand je veux remplir la combobox ya aucune liste de chiffre qui apparait ! qu'est ce qui ne va pas ?