Sub Mois() ‘ plantage si par ex “Septembre” absent
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois") ' alle Monate werden gezeigt
.PivotItems("Janvier").Visible = True
.PivotItems("Février").Visible = True
.PivotItems("Septembre").Visible = True
End With
End Sub