Source données TDC

Voici ce que j'ai fais et qui fonctionne:

Code:

---

1 2 3

Names("TCD_Prio").RefersToR1C1 = "='PPA SYNTHESES Priorités'!R4C3:R" & DerLiTDC1 - 1 & "C10" ActiveSheet.ChartObjects("Graphique 1").Activate Sheets("TDCPPA").PivotTables("TDC prio").PivotCache.Refresh

---

Merci de ton aide