Private Sub UserForm_Initialize()
'cocher Microsoft DAO 3.6 dans Outils/Références
Dim bd As Database
Dim rs As Recordset
Set bd = OpenDatabase(ActiveWorkbook.Path & "\access2000.mdb")
Set rs = bd.OpenRecordset("Select * From Client Order By Nom_Client")
Do While Not rs.EOF
Me.choix.AddItem rs!nom_client
rs.MoveNext
Loop
End Sub