VBA Excel: utilisation de DoCmd.CopyObject

Sub CopieTbl()
  Dim ApAcc As Object
  Dim VPathBdDDes As String ' Base de données de destination
  Dim NouvNomTbl As String ' Nouveau nom table copiée, a laisser vide si même nom
  Dim NomTblSource As String  ' Nom de la table source
  Dim VPathBdDSce  ' Chemin complet de la BdD SOURCE
  ' Créer une instance d'ACCESS
  Set ApAcc = CreateObject("Access.Application")
  ' Définir le chemin d'accès de la BdD SOURCE et ouvrir celle-ci
  VPathBdDSce = "D:\CheminBase\BdDSource.mdb"
  ApAcc.OpenCurrentDatabase VPathBdDSce
  ' Définir le chemin d'accès de la BdD Destination
  VPathBdDDes = "C:\CheminBase\BdDDestination.mdb"
  ' Définir le nom de la table SOURCE à copier
  NomTblSource = "TblSource"
  ' Définir si on le souhaite le nouveau nom de la table copiée
  NouvNomTbl = ""
  ' Lancer la commande de copie
  ApAcc.DoCmd.CopyObject DestinationDatabase:=VPathBdDDes, NewName:=NouvNomTbl, Sourceobjecttype:=acTable, SourceObjectName:=NomTblSource
  ' Fermer la BdD SOURCE
  ApAcc.CloseCurrentDatabase
  ' Quitter l'instance d'Access
  ApAcc.Quit
  ' Vider la variable mémoire
  Set ApAcc = Nothing
End Sub