Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Mois")
.ClearAllFilters
.CurrentPage = Range("B1").Text
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Mois")
.ClearAllFilters
.CurrentPage = Range("B1").Text
End With
End Sub
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating =0
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Mois")
.ClearAllFilters
.CurrentPage = Range("B1").Text
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Mois")
.ClearAllFilters
.CurrentPage = Range("B1").Text
End With
End Sub