Sub MAJ_RAZfiltre()
Dim lsto As ListObject, pvt As PivotTable, pvf As PivotField
Dim pvi As PivotItem, xrg As Range, wsh As Worksheet
Application.ScreenUpdating = False
'actualiser tous les TCD
ActiveWorkbook.RefreshAll
'raz filtre des tableaux
For Each wsh In ThisWorkbook.Worksheets
'raz filtre des tableaux
For Each lsto In wsh.ListObjects
lsto.ShowAutoFilter = False
lsto.ShowAutoFilter = True
Next lsto
'raz filtre des TCD
For Each pvt In wsh.PivotTables
For Each pvf In pvt.PivotFields
For Each pvi In pvf.PivotItems
pvi.Visible = True
Next pvi
Next pvf
Next pvt
'raz de la plage filtrée le cas échéant
If wsh.AutoFilterMode Then
Set xrg = wsh.AutoFilter.Range
xrg.AutoFilter
xrg.AutoFilter
End If
Next wsh
End Sub