Chronomètre de gestion de tâches

-Pointer sur la cellule à droite de la tâche
-Bouton démarrer
-Bouton Arrêt

ChronoTache.xls

Public départ, fin
Sub demarre()
  If ActiveCell.Column = 2 And Cells(ActiveCell.Row, 1) <> "" Then
    départ = Timer
    ancien = ActiveCell * 24 * 3600
    c = ActiveCell.Address
    fin = False
    Do While Not fin
      Range(c) = Format((Timer + ancien - départ) / 3600 / 24, "hh:mm:ss")
      DoEvents
    Loop
  End If
End Sub

Sub arret()
   fin = True
End Sub

Sub raz()
   [B2:B8].ClearContents
End Sub