Sub Macro3()
'
' Macro3 Macro
'
'
Worksheets("TCD").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Sheets("Saisie").Select
Sheets("Tombees mensuelles").Select
ActiveSheet.Range("$C$1:$H$122").AutoFilter Field:=6, Criteria1:="<>"
Sheets("Tombees 2016").Select
ActiveSheet.Range("$B$1:$G$368").AutoFilter Field:=6, Criteria1:="<>"
Sheets("Tombees 2017").Select
ActiveSheet.Range("$B$1:$G$368").AutoFilter Field:=6, Criteria1:="<>"
Sheets("Tombees 2018-2025").Select
ActiveWindow.SmallScroll Down:=-78
ActiveSheet.Range("$B$1:$G$2924").AutoFilter Field:=6, Criteria1:="<>"
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Saisie").Select
End Sub