Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3:C3")) Is Nothing Or Target.Cells.Count > 2 Then Exit Sub
Dim Sh As Worksheet, Pt As PivotTable
For Each Sh In Worksheets
For Each Pt In Sh.PivotTables
With Pt.PivotFields("Agence")
.CurrentPage = Range("$B$3").Value
End With
With Pt.PivotFields("UC")
.CurrentPage = Range("$C$3").Value
End With
Next Pt
Next Sh
End Sub