Chargement d'un combo box

Bonjour à tous

J'ai un combobox que j'appelle Cb_BL qui est une zone de recherche qui doit m'afficher les données de la colonne C et D de data mai il ne m'affiche que le titre et une ligne voici le code que j'ai écrit

Option Compare Text
Dim clé()
Dim f As Worksheet

Private Sub UserForm_initialize()
Set f = Data
    Me.Modereglement.List = Array("CHEQUE", "ESPECE", "PERMANENT")
    Me.Typecaution.List = Array("PERMANENTE", "PONCTUELLE", "LETTRE DE GARANTIE")
    Me.Loisirs.List = Array("20'", "40'", "20'Frigo", "40'Frigo")
    Me.Commentaire.List = Array("", "ANNULE", "RETOURNE")

    clé = f.Range("C2:D" & [C65000].End(xlUp).Row).Value
    Me.Cb_bl.List = clé

 [attachment=0]test.xlsm[/attachment]
 Me.Bl.SetFocus

End Sub

Pourriez vous me dire ou se trouve mon erreur?

Bonjour

ci-joint le fichier

Bonjour,

Le fichier demande un mot de passe.

ric

Mot de passe contrat

mode passe vba sevynitram

Bonjour le fil, bonjour le forum,

manque un f !...

clé = f.Range("C2:D" & f.[C65000].End(xlUp).Row).Value

Bonjour

Merci ça marche