Import requete ACCESS dans un TCD EXCEL

Bonjour à tous,

J'essaie d'automatiser l'import d'une table ou d'une requete ACCESS dans une nouvelle feuille EXCEL, dans un TABLEAU CROISE DYNAMIQUE, mais j'obtiens toujours le message d'erreur "Argument ou appel de Procédure incorrect".
je perd mon sang froid?
Quelqu'un peut-il me sortir de là ? D'avance MERCI.

Voici mon code :

Sub CréationTCD()


Workbooks("TCDLANN.xlsm").Connections.Add _
"Base de données1.accdb LOYERS ENCAISSES MENSUEL", "", Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\Users\Pascal\Documents\ _
CLIENTS\CG\Base de données1.accdb;DefaultDir=C:\Users\ _
Pascal \Documents\CLI"), Array("ENTS\CG;DriverId=25;FIL=MS _ Access;MaxBufferSize=2048;PageTimeout=5;")) , Array( _
"SELECT * FROM `C:\Users\Pascal\Documents\CLIENTS\CG\Base _
de données1.accdb`.`LOYERSENCAISSESMENSUEL`", 2 _


'LA OU CA BUG :


ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, _
SourceData:= ActiveWorkbook.Connections("Base de données1.accdb _ LOYERSENCAISSESMENSUEL") _
,Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:= _
"Feuil1!L1C1", TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion12


Cells(1, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Jour par mois")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nature")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Rubrique")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields( _
"Somme De Somme De Montant"), "Somme de Somme De Somme De Montant", xlSum
End Sub