VBA macro TCD erreur 05

Bonjour,

J'ai pas mal cherché sur internet j'ai l'impression que la question reste en suspens. Je travaille sur une macro, j'ai pu faire deux TCD en automatique, et je souhaite en faire une 3ème mais l'erreur 5 s'affiche "Argument ou appel de procédure incorrect" lors du 3ème TCD.

Cela plante dès le début sur ce code:

Sheets.Add After:=ActiveSheet
ActiveSheet.Select
ActiveSheet.Name = "TCD Jour semaine"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Jour Semaine!R1C1:R1048576C7", Version:=6).CreatePivotTable _
TableDestination:="TCD Jour semaine!R1C1", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=6

J'ai essayé de changer ma base de données et ne prendre que les cellules à la place des colonnes, j'ai essayé de changer le nom de mon TCD, mais rien ne marche.

J'ai fais mon code grâce aux macros automatiques.

Quelqu'un a une idée pour résoudre ce problème?

Merci.