Option Explicit
Dim vTempo As Date
Sub LanceTempo()
vTempo = Now + TimeValue('00:00:01')
Application.OnTime vTempo, 'LanceTempo'
ActiveWorkbook.Names.Add Name:='Clignotant', RefersToR1C1:=1 - [Clignotant]
Application.EnableEvents = False
Feuil1.Range('A1') = IIf(Minute(Now) < 15, '', TimeSerial(Hour(Now) + 1, 0, 0))
Application.EnableEvents = True
End Sub
Sub ArretTempo()
Application.OnTime EarliestTime:=vTempo, _
Procedure:='LanceTempo', Schedule:=False
End Sub