Sub Macro1()
'Macro Dan
Dim pi As PivotItem
For Each pi In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("votre champ avec valeurs à 0").PivotItems
If pi.DataRange = 0 Then pi.Visible = False Else: pi.Visible = True
Next
End sub