XL 2016 Probleme propriete PivotItems

[treza88]

Bonsoir,

J'essaies de faire un test sur des Pivotitems d'un TCD, mais j'ai une erreur:
Impossible de lire la propriete PivotItems de la classe PivotField.
avec le code suivant:

If ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Fournisseur").PivotItems("Conforama").Visible = True Or _
         ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Fournisseur").PivotItems("DFI").Visible = True Or _
         ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Fournisseur").PivotItems("Founisseur").Visible = True Or _
         ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Fournisseur").PivotItems("Foussier").Visible = True Or _
         ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Fournisseur").PivotItems("TENTE").Visible = True Then

Si quelqu'un a une idée car je bute sur le problème sans trouver de solution.

Merci d'avance