TCD en VBA

Bonjour,

je code une macro en VBA et j'ai besoin de créer un TCD.
Sur mon nouveau classeur, j'utilise la même formule que d'habitude, mais cette fois ci, elle ne marche pas ... Avez vous des idées à lancer ??

Voici la formule que j'utilise :

ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
['Source refus SAD'!A7].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="'TCD refus SAD'!R7C1", _
TableName:="Mon TCD"

Merci d'avance !