Passing a filter from a cell to multiple Pivot tables in same sheet

Question

I\'m trying to pass a value from a cell to multiple pivots in a same sheet, it is not working.

Here is my code :

With ActiveSheet.PivotTables("PivotTa