XL 2010 Filtrer un champ d'un TCD en macro VBA

[Demha_2022]

Bonjour,

Je suis débutant en VBA , j'ai une feuille dans laquelle j'ai construit un TCD en macro VBA.
La source de données de ce TCD est récupérée dans une deuxième feuille se trouvant dans un répertoire de fichier.

je souhaiterais faire le filtrage sur un champ nommé "Libelé du groupe Perf", la macro s'exécute sans aucun souci , mais quand je vais dans mon TCD je ne vois aucun filtrage sur le champ "Libelé du groupe Perf".

Voici le code:

  ' filtre champs Libellé du Groupe Perf
  ' le filtrage ne sélectionne pas les items spécifiés en objet

  With ActiveSheet.PivotTables("mon tableau croisé dynamique").PivotFields("Libellé du Groupe Perf")

        .PivotItems("Prev PP globale").Visible = True
        .PivotItems("Val Désirio").Visible = True
        .PivotItems("Val Epargne Vie").Visible = True
        .PivotItems("Val Gestion Préconisée").Visible = True
        .PivotItems("Val Ret ind.").Visible = True
        .PivotItems("Conquêtes Part multirisques").Visible = True
        .PivotItems("Conquetes Pro Agri").Visible = True
        .PivotItems("Conquetes Pro ACPS").Visible = True
        .PivotItems("PN IARD HT").Visible = True
        .PivotItems("Nb Auto").Visible = True
        .PivotItems("Nb GAV").Visible = True
        .PivotItems("Nb Habitation").Visible = True
        .PivotItems("Nb Santé ind.").Visible = True
        .PivotItems("Nb GBH").Visible = True

    End With

J'ai regardé sur plusieurs forums m'ais j'arrive pas à trouver la solution.
Quelqu'un pourrait svp m'aider à résoudre ce problème de filtrage?