Récupérer nom tables access après code VBA

Bonjour,

Je fais du access basique et je suis nul en VBA. Je souhaite récupérer le nom de toutes mes tables dans ma base Access sur un tableau
Toutes les requêtes font la même chose , afficher et lister les tables mais je ne sais pas où récupérer mes tables.

Faut-il faire une requête utilisant "test()" ? Si oui, Access me dit objet non défini.

Ma librairie "Microsoft DAO 3.6 Object Library" n'est pas coché car j'ai la "Microsoft Access 15.0 Object Library" déjà coché qui doit la contenir.

le code utilisé

Public Sub test()
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Set Db = CurrentDb
For Each tbd In Db.TableDefs
MsgBox "Table : " & tbd.Name
Next
End Sub

Merci d'avance pour vos retours.

Flo