Public DateFin As Date
Sub MAJ_TCD()
DateFin = Now + TimeValue("00:00:10")
Application.OnTime DateFin, "MAJ"
End Sub
Sub MAJ()
'MsgBox "ok"
ActiveSheet.PivotTables(1).PivotCache.Refresh
MAJ_TCD
End Sub
Sub MAJ_TCD_Stop()
Application.OnTime EarliestTime:=DateFin, Procedure:="MAJ", Schedule:=False
End Sub