Changer la source d'un TCD avec une macro

Bonjour à tous,

Contexte:

J'ai crée une base de données dont les entêtes ont des codes qui finissent soit par "VAL", "SEC", "IND", ou "IN".

Problème:

J'ai crée un onglet avec des TCD qui à pour source cette base de donnée et ceci pour toutes les entêtes qui finissent avec "VAL".

Je souhaite maintenant dupliquer cet onglet pour qu'ils s'appliquent aux entêtes finissant par "SEC, "IND" et "IN".

Je souhaiterai donc pour tout les TCD d'un même onglet, changer dans les champs source des TCD, la valeur "VAL" par "SEC", "IND", et "IN".

Questions:

Peut-on à l'aide d'une macro changer le nom des champs source d'un TCD? et si oui comment sélectionner tout les TCD d'un seul onglet et changer le nom des champs ?

D'avance merci pour vos contributions.

Cordialement

Bonjour à tous,

Au final, au lieu d'avoir un seul TDC j'ai crée un TDC identique avec les mêmes entêtes par type de produit.

Seul le nom du tableau change par type de produit, ainsi je n'ai qu'à mettre à jour la source du TDC et non plus les entêtes.

Ci-dessous le code pour mettre à jour la source d'un TDC :

Sub MAJ_SOURCE_TDC()
    New_Ref = "_IN"
    Old_Ref = "_VAL"

    For Each TDC In ActiveSheet.PivotTables
        TDC.SourceData = Replace(TDC.SourceData, Old_Ref, New_Ref)
        TDC.PivotCache.Refresh
    Next
En sub