Sub TCDShowDetail()
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Fournisseur")
.ShowDetail = Not .ShowDetail
.Parent.Shapes("Label 1").OLEFormat.Object.Caption = Array("Afficher détails", "Masquer détails")(Abs(.ShowDetail))
End With
End Sub