Question Macro Chronomètre

Bonjour,

J'ai un petit soucis avec la macro suivante :

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

Je l'utilisais avant avec Excel 2013 sans aucun soucis maintenant, je viens de changer d’ordinateur avec Excel 2019 et le chronomètre se lance sur toutes les feuilles Excel d'ouvert. Je n'arrive pas à savoir si cela vient de la macro, d'une configuration Excel...

Merci d'avance pour votre aide

Apres quelques recherche, je ne trouve vraiment pas le soucis

Si quelqu'un a une idée ?

Merci d'avance

Bonsoir porcinet95, le forum,

Peut-être faut-il préciser sur quelle feuille tu exécutes ta macro ?

Sub démarre()
 With Sheets("Feuil1") '..............nom de ta feuille à adapter
 'With activesheet '..................agit sur la feuille active
  If ActiveCell.Column = 5 And .Cells(ActiveCell.Row, 4) <> "" Then
   départ = Timer
   ancien = ActiveCell * 24 * 3600
        f = ActiveCell.Address
      fin = False
   Do While Not fin
    .Range(f) = Format((Timer + ancien - départ) / 3600 / 24, "hh:mm:ss")
   DoEvents
   Loop
  End If
 End With
End Sub

Cordialement,

Bonsoir,

Je vous remercie pour votre réponse.

J'ai fait la MAJ

Il y a du mieux, mais maintenant quand je travaille sur un autre Excel cela arrête mon timer...