VBA-Excel Une boucle pour remplir une combobox

Bonjour à tous

J'ai besoin de pouvoir remplir une combobox (box_ville)dans un formulaire (form_ajout) avec une plage de cellule provenant d'une feuille de calcul(Feuil1). Voilà le code que j'ai écrit dans le UserForm:

Private Sub form_ajout_Initialize()

Dim i As Integer
i = 1
Do While Worksheets("Feuil1").Cells <> 0
box_ville.AddItem Sheets("Feuil1").Cells(i, 1)
i = i + 1
Loop
End Sub

Quand j'initialise le formulaire, rien ne se passe dans la combobox concernée.
Le problème semble venir de l'affichage puisque la boucle suivante fonctionne très bien quand je la code dans un autre module et que je l'exécute:

Private Sub testboucle()

Dim i As Integer
i = 1
Do While Worksheets("Feuil1").Cells(i, 1) <> 0
MsgBox Worksheets("Feuil1").Cells(i, 1).Value
i = i + 1
Loop
End Sub

Voilà, si quelqu'un pouvait me venir en aide, cela m'aiderait grandement. Je précise que je débute et que ceci est pour le premier système que je crée seul.
Autre chose, je travaille avec excel 2011 mac, donc inutile d'évoquer la propriété RowSource.

Merci d'avance