Salut,
Voici le code à placer dans ton userform
Private Sub UserForm_Activate()
nbr = Range('A1').CurrentRegion.Count '(ici je ne fais pas de division car il n'y a qu'une colonne, par contre si tu as plusieurs colonnes, pour connaitre le nombre de ligne, tu dois diviser par le nbr de colonne de données qui se touche directement que tu as dans ta feuille)
For x = 1 To nbr
ComboBox1.AddItem Range('A' & x).Value
ListBox1.AddItem Range('A' & x).Value
Next x
End Sub
Bonne journée.
John