Dim temps
Sub majHeure()
t = temps - Int(temps)
If t >= [A5] And t <= [A6] Then
AfficheHeure
End If
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "majHeure"
End Sub
Sub AfficheHeure()
[A1] = temps - Int(temps)
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub