Bonjour à tous

Je viens de mettre en place un code permettant la création automatique d'un TCD à plage variable, ce code fonctionne bien :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim lastrow
lastrow = Sheets("Collab").Range("B4").End(xlDown).Row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Collab!R4C1:R" & lastrow & "C31").CreatePivotTable TableDestination:="TCD_equipe!R5C1", TableName:="Tableau croisé dynamique2"
je veux donc utiliser le meme code pour un autre TCD,
j'adapte donc le meme code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim lastrow
lastrow = Sheets("Tps détaillés").Range("B4").End(xlDown).Row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tps détaillés!R4C1:R" & lastrow & "C35").CreatePivotTable TableDestination:="Projet Interne!R5C1", TableName:="Tableau croisé dynamique4"
mais la j'ai une erreur d'execution 5 : argument ou appel de procédure incorrect

pouvez vous m'aider?
merci d'avance

j'ai l'impression que mon problème se situe au niveau des noms des feuilles.
comment puis-je resoudre ce problème sans changer le nom de mes feuilles?