J'ai enfin trouvé une solution sur un post qui me satisfait,
Je vous la remet ci-dessous
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
If obj.Name = "Tablename" Then
DoCmd.DeleteObject acTable, "Tablename"
End If
Next obj