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,

il y a un mot de passe sur ton classeur ???

Mot de passe contrat

idem pour la partie VBA ??

Sorry partie vba sevynitram

Alors, c'est tout simple lol

C'est tout simplement du au fait que tu comptais le nombre de ligne mais pas du bon onglet.

 clé = f.Range("C2:D" & ActiveWorkbook.Sheets("Base").Range("C65000").End(xlUp).Row).Value