Private Sub Worksheet_Activate()
ActiveSheet.PivotTables(1).PivotSelect "", _
xlDataAndLabel
ActiveSheet.PivotTables(1).PivotFields("Mois"). _
CurrentPage = Month(Date)
ActiveSheet.PivotTables(1).PivotFields("Jour"). _
CurrentPage = Day(Date)
End Sub