Sub Macro2()
Dim i As Byte
For i = 1 To ActiveSheet.PivotTables.Count
With ActiveSheet.PivotTables(i)
.PivotCache.Refresh
With .PivotFields('DATE')
.CurrentPage = .PivotItems(.PivotItems.Count).Name
End With
End With
Next i
End Sub
Sub Bouton7_QuandClic()