Private Sub UserForm_Initialize()
Dim MainfileName As String
MainfileName = ThisWorkbook.Name
Dim Nombre_Fond As Integer
Dim refNombreFond As Integer
refNombreFond = Workbooks(MainfileName).Worksheets("Fonds").Cells(1, 1).End(xlDown).Row
For Nombre_Fond = 1 To refNombreFond
ComboBox1.AddItem Workbooks(MainfileName).Worksheets("Fonds").Cells(Nombre_Fond, 1)
Next Nombre_Fond
End Sub