Bonjour,
C'est assez simple à mettre en place.
Ci-joint une démo simplette mais qui fait le taf
Pierre
Sub UserForm()
Dim NDF As String, Req As String, T As Variant
NDF = ThisWorkbook.Path & "\Base_demo.accdb"
Req = "SELECT * FROM [Donnees_demo]"
Connect_Access NDF
T = Select_Db(Req, 1)
Close_Cnx
With UserForm1
.ListBox1.List = T
.Show
End With
End Sub