Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'************************
Sub compte()
Dim i As Integer
If running Then
Range("A1").Value = Range("A1").Value + UneSec
Application.OnTime Now + TimeValue("00:00:01"), "compte"
'************************
running = Range("B1").Value > Range("A1").Value
Else
Beep 1000, 250
Beep 3000, 100
Beep 1000, 500
'************************
End If
End Sub