Timer dans plusieurs cellules Excel

Option Explicit
Public TM(3) As Boolean     'Flag L/S timer
  
Sub Timer_C2()
    With Worksheets("feuil1")
        .Range("C2") = .Range("C2") + 1     'incremente cellule
    End With
    If Not TM(0) Then       'si pas stop
        Application.OnTime Now + TimeValue("00:00:01"), "Timer_C2"      'boucle sur procedure au bout de 1 seconde
    End If
End Sub

Sub Timer_C3()
    With Worksheets("feuil1")
        .Range("C3") = .Range("C3") + 1
    End With
    If Not TM(1) Then
        Application.OnTime Now + TimeValue("00:00:01"), "Timer_C3"
    End If
End Sub

Sub Timer_C4()
    With Worksheets("feuil1")
        .Range("C4") = .Range("C4") + 1
    End With
    If Not TM(2) Then
        Application.OnTime Now + TimeValue("00:00:01"), "Timer_C4"
    End If
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B2:B4")) Is Nothing Then
        If Target = 1 Then
            TM(Target.Row - 2) = False          'flag lance timer
            Range("C" & Target.Row) = -1        'init timer
            Application.Run "Timer_C" & Target.Row  'lance le timer
        Else
            TM(R) = True    'stop timer
        End If
    End If
End Sub