Option Explicit
Private Sub Worksheet_Activate()
Dim Maxi As Date
ActiveWorkbook.RefreshAll
Maxi = Application.WorksheetFunction.Max(Feuil1.Columns(1))
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("date")
.ClearAllFilters
.EnableMultiplePageItems = False
.CurrentPage = Maxi
End With
End Sub