Private Sub UserForm_Initialize()
'nécessite d'activer la référence Microsoft ActiveX Data Object 2.x Library
Dim Rs As ADODB.Recordset
Dim Cn As String
Dim Cible As String
Dim Fichier As String
Fichier = 'C:\\FichierB.xls' 'adapter le chemin
Cn = 'DRIVER={Microsoft Excel Driver (*.xls)};' & _
'ReadOnly=1;DBQ=' & Fichier
Cible = 'SELECT * FROM [Feuil1$];'
Set Rs = New ADODB.Recordset
Rs.Open Cible, Cn, adOpenForwardOnly, adLockReadOnly, adCmdText
'les données à récuperer sont dans la colonne A
If Not Rs.EOF Then
ComboBox1.AddItem Rs.Fields(0).Name 'entete
Do While Not Rs.EOF
ComboBox1.AddItem Rs.Fields(0).Value
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs = Nothing
End Sub