Le dernier élément de ma liste box refuse d'apparaitre.

Bonjour,
J'ai une listebox avec un nombre variable d'éléments.
J'ai mis ces éléments dans les clefs d'un dictionnaire pour ne pas avoir à gérer les doublons.

Ensuite je transfert mes clefs de dictionnaire dans ma liste box.
(J'ai essayé les deux méthodes suivantes qui conduisent au même problèmes.)

UserForm.ListBox.List = Dictionnaire.keys

ou

For Each cle In Dictionnaire.keys
UserForm.ListBox.AddItem cle
Next

Dans les deux cas, le nombre d'éléments à afficher dans ma liste box est trop important.
Un "ascenseur" permet de faire défiler la liste d'éléments, mais le dernier élément ne s'affiche pas. (Je peux tout de même le sélectionner avec les touches haut/bas du clivier)

Quelqu'un a une idée ?

Merci.