Dim Pt As PivotTable, Pf As PivotField, Sh As Worksheet
ThisWorkbook.RefreshAll
For Each Sh In ThisWorkbook.Worksheets
For Each Pt In Sh.PivotTables
For Each Pf In Pt.PivotFields
If Not IsError(Pf.Position) Then
If Pf.Position = 1 And Pf.Orientation = 1 Then
Pf.ClearManualFilter
Pf.PivotItems("(vide)").Visible = False
End If
End If
Next Pf
Next Pt
Next Sh