Public heure
Sub Actualiser()
Range("J" & Range("J65536").End(xlUp).Row + 1) = Now
heure = Now + TimeValue("00:00:02")
Application.OnTime heure, "MiseAjour_Cliquer"
End Sub
Sub MiseAjour_Cliquer()
'MsgBox "ok"
Actualiser
End Sub
Sub ActualiserStop()
Application.OnTime EarliestTime:=heure, Procedure:="MiseAjour_Cliquer", Schedule:=False
End Sub