Sub Macro1()
Range("A6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Libellé de l'écriture").ShowDetail = False
End Sub
Sub Macro2()
Range("A6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Libellé de l'écriture").ShowDetail = True
End Sub