Private Sub UserForm_Initialize()
Dim WkB As Workbook
Dim Tbl As Variant
Set WkB = Workbooks.Open(ThisWorkbook.Path & "\Fichier_Clients.xlsx")'On ouvre le Fichier qui se trouve dans le même dossier que le Classeur "[I]TRAME TESTT[/I]"
With WkB 'avec ce Dossier
Tbl = .Worksheets("CLIENTS").Range("A1").CurrentRegion.Value 'On récupére les données de la feuille "CLIENTS" du Fichier Source
.Close True 'True Referme le fichier Source
End With
With Me.C1'Avec le Combobox
For i = 2 To UBound(Tbl, 1)'Pour chaque ligne du tableau à partir de la deuxieme Ligne
.AddItem Tbl(i, 1)'On récupére le contenu de la premiere colonne
Next i
End With
End Sub