Salut,

pour ça, il te faut parcourir la collection des tables de la base courante et générer un peu de SQL pour faire un drop table avec RunSql...

Attention, à ne pas supprimer les tables système (commençant par Msys...)

Dim Ta As TableDef
For Each Ta In CurrentDb.TableDefs
    MsgBox Ta.Name
Next

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

J'ai trouvé la solution. Voila le code si ça peut aider quelqu'un

Dim BD As DAO.Database
Set BD = CurrentDb
Dim tb As DAO.TableDef
For Each tb In BD.TableDefs
    If Left(tb.Name, 4) <> "MSys" Then
        If Len(tb.Connect) > 0 Then
            DoCmd.RunSQL "DROP TABLE [" & tb.Name & "] ;"
            Debug.Print "effacement de " & tb.Name & " -=#=> " & tb.Connect
        End If
    End If
Next tb

N’oubliez pas de cocher la case quand le problème est résolu