Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [B2]) Is Nothing Then
ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields("Element").CurrentPage = CStr([B2])
End If
If Not Intersect(Target, [E2]) Is Nothing Then
ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields("Element").CurrentPage = CStr([E2])
End If
Application.EnableEvents = True
End Sub