VBA Access existance d'une table

Sub x()
On Error GoTo err:
Dim rst As DAO.Recordset
Set rst = CurrentDb().OpenRecordset("T_Table")
Set rst = Nothing
Exit Sub
err:
Select Case err.Number
Case 3078
MsgBox "cette table n'existe pas"
Set rst = Nothing
End Select

End Sub

Option Explicit

Private Sub Commande13_Click()
    On Error GoTo Err_Commande13_Click
   
    Dim m As String
    Dim a As String
    Dim nomTable As String
    Dim nomClasseur As String
    Dim SQL As String
    Dim d As String
    Dim cat As New ADOX.Catalog
       
    m = Me!mois
    a = Me!année
    d = a & m
    
    DoCmd.SetWarnings False

    nomClasseur = "D:\Test\Essai\" & a & m & ".xls"
    nomTable = "TableTest" & a & m

    If Not ExisteTable("nomTable") Then
    DoCmd.TransferSpreadsheet acImport, , nomTable, nomClasseur, -1
    End If
    'd = "2006_T3"
    'nomTable = "PJPF2006_T3"
    
    'Définir la requête
    SQL = "INSERT INTO Test ( OPPO, MPE, MPF, MRE, MRF, M__, [année]) " & _
    "SELECT OPPO, MPE, MPF, MRE, MRF, M__, """ & d & """ AS [année] " & _
    "FROM " & nomTable & _
    " WHERE CBQD='total' AND MOIS='total' AND CMOP='total';"

    'Exécuter la requête
    CurrentDb.Execute SQL

Set cat = Nothing
Exit_Commande13_Click:
    Exit Sub
Err_Commande13_Click:
    MsgBox Err.Description
    Resume Exit_Commande13_Click
End Sub

Function ExisteTable(ByVal strTabl As String) As Boolean
    Dim str As String
    On Error GoTo err01
    str = CurrentDb.TableDefs(strTabl).name
    ExisteTable = True
    Exit Function
err01:
    Select Case Err.Number
        Case 3265
            ExisteTable = False
    End Select
End Function
 

Dim Req As QueryDef
Set Req = CurrentDb.CreateQueryDef("", "delete * from [ma_table")
Req.Execute dbFailOnError

SELECT t.année, t.OPPO, t.MPE, t.MPF, t.MRE, t.MRF, t.M__ INTO Test
FROM t;

INSERT INTO Test ( OPPO, MPE, MPF, MRE, MRF, M__, [année]) SELECT OPPO, MPE, MPF, MRE, MRF, M__, """ & d & """ AS [année] FROM " & nomTable WHERE CBQD='total' AND MOIS='total' AND CMOP='total';"