essai ça
ComboBox1.AddItem Worksheets("Feuil1").Range("$A$1:$A$30").Address
ou bien
ComboBox1.AddItem Worksheets("Feuil1").cells(1,1)
ComboBox1.AddItem Worksheets("Feuil1").cells(1,2)
.
.
.
etc
ou bien il y a une autre astuce:
tu selectionne une cellule.
puis en haut tu click sur Donnée->Validation. dans le critére de validation tu choisie Liste. puis tu selectionne la colonne ou il y a tes information.