VBA TCD filtre

Bonjour,

Je vous explique mon attente:

Dans un de mes filtres de mon tableau croisé dynamique j'ai des valeurs allant du négatif au positifs et des cases vide. Je ne veux garder que les valeurs positives et donc ignorer les négatives, nulle et vide.

Voici la partie du code

Je pensé effacer tous le filtre et ne garder que les positifs, mais ça marche pas, une aide SVP :D

    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "Quantité Reçue").ClearAllFilters
   With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "Quantité Reçue")
        .PivotItems(">0").Visible = False

  End With
  

Merci beaucoup, bonne journée!!

Alexysr