Option Explicit
Sub MàJ()
Dim Ges As String, Per As String, X&, Sh&
Ges = Feuil2.PivotTables("TCD1").PivotFields("Gestionnaire").CurrentPage
Per = Feuil2.PivotTables("TCD1").PivotFields("Période").CurrentPage
Application.ScreenUpdating = 0
For Sh = 1 To Sheets.Count
If Left(Sheets(Sh).Name, 5) = "Recap" Then
For X = 1 To Sheets(Sh).PivotTables.Count
With Sheets(Sh).PivotTables("TCD" & X)
.PivotFields("Gestionnaire").CurrentPage = "(All)"
.PivotFields("Période").CurrentPage = "(All)"
.PivotFields("Gestionnaire").CurrentPage = Ges
.PivotFields("Période").CurrentPage = Per
End With
Next X
Cells(1, 5).Select
End If
Next Sh
ActiveWorkbook.RefreshAll
End Sub