Voici ce que j'ai fais et qui fonctionne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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