Problème Script Pivots

Bonjour à toutes et à tous,

voici mon problème:
j'essaie de faire un pivot sur un pivot existant dans un autre sheet, mais ça ne marche pas ... pourquoi?
au départ, l'enregistreur me donnait pour SourceData:= "[nom classeur]nomfeuille!nompivot"
j'ai essayé de modifier pour des raisons pratiques (voir ci-dessous).

Dim PSource As String --> nom du pivot source
PSource = "PivotSource"

Dim SName As String --> nom de la feuille source
SName = "Count of Companys per Resource"

Dim Tname As String --> nom du pivot que je crée
Tname = "Pstatus"

ActiveSheet.PivotTableWizard SourceType:=xlPivotTable, _
SourceData:=Sheets(SName).PivotTables(PSource), _
TableDestination:=Sheets(Wname).Range("b2"), _
TableName:=(Tname)

Pouvez-vous m'aider?

Merci beaucoup,

Johan