Bonjour lea et nj
Voici quelque chose, qui peut t'insperer, mais le fait de mettre ton chrono dans une cellule présente un inconvénient.
Pendant la saisiie d'une autre cellule, le chrono arrête de s'afficher.
Dim ch
Sub deb()
ch = Now
chrono
End Sub
Sub chrono()
Application.OnTime Now + TimeValue('00:00:001'), 'chrono'
Sheets(1).Range('a1') = Now - ch
End Sub