Sub Filtre_TCD()
Dim OTP As String
OTP = Range("C4").Value
ActiveSheet.PivotTables("BSBH1").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH1").PivotFields("OTP Project").CurrentPage = _
"(blank)"
ActiveSheet.PivotTables("BSBH1").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH1").PivotFields("OTP Project").CurrentPage = _
"OTP"
ActiveSheet.PivotTables("BSBH2").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH2").PivotFields("OTP Project").CurrentPage = _
"(blank)"
ActiveSheet.PivotTables("BSBH2").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH2").PivotFields("OTP Project").CurrentPage = _
"OTP"
ActiveSheet.PivotTables("BSBH3").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH3").PivotFields("OTP Project").CurrentPage = _
"(blank)"
ActiveSheet.PivotTables("BSBH3").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH3").PivotFields("OTP Project").CurrentPage = _
"OTP"
End Sub