XL 2010 Tenir compte des zéro lors du chargement du combobox

Bonjour le Forum,

Je trouve un problème d'affichage des valeurs qui commencent par zéro dans le combobox. par exemple 0045688215 s'affiche uniquement 45688215.J'ai ajouté sur le userform initialize mais ça n'a rien changé.:
# Me.ChoixSociete.Value = Format(Me.ChoixSociete.Value, "0000000000") #

ci dessous le code complet :

Set f = Sheets("Feuil2")
choix1 = Application.Transpose(f.Range("B3:B" & f.[a65000].End(xlUp).Row).Value)
Me.ChoixSociete.List = choix1
ligneEnreg = f.[a65000].End(xlUp).Row + 1
Me.ChoixSociete.SetFocus
Me.ChoixSociete.Value = Format(Me.ChoixSociete.Value, "0000000000")

Merci pour votre aide.