TCD et plage variable

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:

---

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:

---

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?

J'ai du me résoudre à changer mes noms de feuille en insérant "_" entre les mots.

Merci quand même