ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _ PivotTables("Tableau croisé dynamique3").PivotFields("2012-05"), _ "Nombre de 2012-05", xlCount
Dim pt As Object For Each Pt In ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Somme de 2012-05").PivotItems Pt.Visible = True Next Pt