Pour afficher le temps qui défile, il faudrait rajouter dans le fichier qu'a transmis Eriiic, les ves éléments suivants dans la partie VB:
-dans <Option Explicit>, rajouter les déclarationd de variables suivantes:
Dim fin As Boolean
Dim interchrono As Single
- dans la sub <BtnDépart_Click()>, rajouter ce qui suit après la ligne existante:
Range("G1").NumberFormat = "h:mm:ss;@"
fin = False
Do While Not fin
interchrono = Time() - t
Range("G1").Value = interchrono
DoEvents
Loop
Par ailleurs il faudrait rajouter un bouton pour arréter le chrono qui continuera de tourner.
J'espère qu'Eriiic ne m'en voudras pas d'avoir modifier un peu son code sans son accord!