Sub Macro2()
With Worksheets("TCDArchive").PivotTables("Tableau croisé dynamique1")
For I = 1 To .PivotFields.Count
If ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(I).Orientation = xlPageField Then
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(I). _
CurrentPage = "(All)"
End If
Next
End With
End Sub