VBA Un timer une seconde tout simple

En VBA, il n'y a pas (du moins à ma connaissance) de composant Timer.
On peut en créer un très facilement.

Dans un module de feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Pour exemple d'application : Démarre/Arrête le timer à chaque changement de cellule.
'mais peut, aussi, être mis sur un bouton ou autre...
   TimeOnOFF = Not TimeOnOFF
    If TimeOnOFF Then Timer
End Sub

Dans un module public

Public TimeOnOFF As Boolean

Sub Timer()
Dim S As Integer
    While TimeOnOFF = True
        If Second(Now) > S Or Second(Now) = 0 Then
            'Exécution du code
            '....
            'pour exemple
            Sheets("Feuil1").Range("A1").Value = Time
            
            S = Second(Now)
        End If
        DoEvents
    Wend
    
End Sub

A+