Pb Macro Tableau croisé dynamique

Bonjour,

J'essaie de lancer un tableau croisé dynamique via VBA mais elle ne fonctionne pas. Ce qui est bizarre car c'est exactement le meme code qu'un autre TCD qui fonctionne lui sous VBA.

Bref je n'y comprend plus rien.

Voici le code : A la base à la place du ADD j'avais create ( il m'affichait "appel de procédure incorrect") maintenant qu'à la place du Create il y a ADD, il m'affiche erreur de compilation : argument nommé introuvable.)

Sub RETRAITEMENTS()

Sheets("TCD TS").Select
Cells.Select
Selection.ClearContents


Sheets("TOTAL TIMESHEET").Select
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"TOTAL TIMESHEET!R1C1:R65536C19", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="TCD TS!R1C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10

Sheets("TCD TS").Select
Cells(1, 1).Select


Le code n'est pas complet mais je pense que c'est la partie qui pose problème.

Je suis sur Excel 2007, Merci d'avance pour votre aide!