VBA Excel: Comptes à rebours imbriqués avec arrêt auto

Option Explicit
Private Declare Function GetInputState Lib "user32" () As Long
Private Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Dim TempsInter()
Dim NbSecondes As Long
Dim Indic As Integer
Dim Plage As Range
Dim iCounter As Integer
Dim lngTimerID As Long
Dim BlnTimer As Boolean
Dim pause As Boolean

Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
Dim Reste As Long, Cel As Range

'En cas d'erreur quitte proprement le Timer
On Error GoTo Arret

'coloriage
For Each Cel In Plage
    If Cel.Address = TempsInter(2, Indic) Then Cel.Interior.ColorIndex = 3 Else Cel.Interior.ColorIndex = xlNone
Next Cel

'alimentation compteur si pas de pause
If pause = False Then iCounter = iCounter + 1
Reste = NbSecondes - iCounter
Range("J" & CInt(Split(TempsInter(2, Indic), "$")(2))) = Format((TempsInter(1, Indic) - iCounter) / 86400, "hh:mm:ss")

'FIN
If iCounter = NbSecondes Then
    pause = False
    Call Arret_Timer
    Exit Sub
End If
'BEEP et autres actions à faire
If iCounter = TempsInter(1, Indic) Then
    Call Beep(1500, 1000)
    Indic = Indic + 1
    iCounter = iCounter - 1
    If Indic Mod 2 = 0 Then Range("K" & CInt(Split(TempsInter(2, Indic), "$")(2))) = Range("K" & CInt(Split(TempsInter(2, Indic), "$")(2))) + 1
End If
Exit Sub

Arret:
pause = False
Call Arret_Timer
End Sub

'La procédure de commencement du Timer
Public Sub Lance_Timer()

'permet de déclencher le clic sur un bouton en cas de pause:
If GetInputState = 0 Then DoEvents
  
'1000 = intervalle en millisecondes => 1s
'TimerProc = nom de la procédure à relancer toutes les 1000ms
lngTimerID = SetTimer(0, 0, 1000, AddressOf TimerProc)
If lngTimerID = 0 Then
    MsgBox "Timer non créé. Fin du programme."
    Exit Sub
End If
BlnTimer = True
End Sub

'La procédure d'arrêt du Timer
Public Sub Arret_Timer()
    lngTimerID = KillTimer(0, lngTimerID)
    If lngTimerID = 0 Then
        MsgBox "Timer déjà arrêté."
        Exit Sub
    End If
    BlnTimer = False
    Plage.Interior.ColorIndex = xlNone
    Range("J5:K14").ClearContents
    Sheets("Sheet1").CommandButton3.Caption = "Pause"
    Call Beep(2500, 2500)
    MsgBox "Fini!! Ouffff......"
End Sub

'Bouton Start
Sub Lancement()
Dim Lig As Integer, Col As Integer, Cpt As Integer
Dim i As Integer

i = 1
NbSecondes = 0
iCounter = 0
pause = False
Set Plage = Range("F4:I14")
Plage.Interior.ColorIndex = xlNone
Range("J5:K14").ClearContents

ReDim Preserve TempsInter(1 To 2, 1 To i)
TempsInter(1, i) = 0
TempsInter(2, i) = "$F$4"
For Lig = 5 To 14
    If Cells(Lig, 7) = "" Then Exit For
    Cpt = Cells(Lig, 9)
    Do While Cpt > 0
        For Col = 7 To 8
            NbSecondes = NbSecondes + Hour(Cells(Lig, Col)) * 3600 + Minute(Cells(Lig, Col)) * 60 + Second(Cells(Lig, Col))
            i = i + 1
            ReDim Preserve TempsInter(1 To 2, 1 To i)
            TempsInter(1, i) = TempsInter(1, i - 1) + Hour(Cells(Lig, Col)) * 3600 + Minute(Cells(Lig, Col)) * 60 + Second(Cells(Lig, Col))
            TempsInter(2, i) = Cells(Lig, Col).Address
        Next Col
        Cpt = Cpt - 1
    Loop
Next Lig
Indic = 2
Range("K" & CInt(Split(TempsInter(2, Indic), "$")(2))) = 1
Lance_Timer
End Sub

'Bouton pause
Sub BtnPause()
    If Sheets("Sheet1").CommandButton3.Caption = "Pause" Then
        pause = True
        Sheets("Sheet1").CommandButton3.Caption = "Reprendre"
    Else
        Sheets("Sheet1").CommandButton3.Caption = "Pause"
        pause = False
    End If
End Sub

Private Sub CommandButton1_Click()
Call Lancement
End Sub

Private Sub CommandButton2_Click()
Call Arret_Timer
End Sub

Private Sub CommandButton3_Click()
Call BtnPause
End Sub