Private Sub UserForm_Initialize()
Dim Base As Database
Dim Rs As Recordset
Set Base = OpenDatabase(ActiveWorkbook.Path & "\Base.accdb")
Set Rs = Base.OpenRecordset("SELECT DISTINCT Source.Marque FROM Source")
Do While Not (Rs.EOF)
ComboBox1.AddItem Rs.Fields(0).Value
Rs.MoveNext
Loop
Rs.Close
Base.Close
End Sub