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é
Me.Bl.SetFocus
End Sub