Arrêt macro "calculate" lorsqu'un résultat "timer" est à zéro

Bonjour à tous

J'ai mis en place un petit programme qui me permet un décompte horaire jusqu'à "ma" prochaine séance... Temps restant à disposition...

Je souhaite que la macro "calculate" ci-dessous s'arrête automatiquement lorsque le compte à rebours arrive à 00:00:00 (hh:mm:ss).

Public Sub Maj() ' contrôle du chrono    
    Application.ScreenUpdating = True
'---------------------------------------------------------------------------------------------------------------------------
    If Range("B8") = "JA" Then
    Application.OnTime Now + TimeValue("00:00:01"), "Maj"
    Calculate
    Else
    Exit Sub
    End If
'---------------------------------------------------------------------------------------------------------------------------
    Application.ScreenUpdating = False
    End Sub

Est-ce que quelqu'un peut m'aguiller ?

D'avance merci !
Cordialement

Willau

Ajout personnel !!!!

Avec ce bout de code, ça lance ma macro.

If Range("B8") = "JA" Then

Si je mets en ("B8") un "NEIN" ça devrait arrêter mon calcul automatique.
--> mais j'y arrive pas.

Bonjour

Pourquoi ouvrir une deuxième fil ?? --> https://forum.excel-pratique.com/s/goto/965226

Crdlt

Bonjour Dan !
Merci pour ta remarque !
J'ai oublié cette première demande

Trop de projets en cours apparemment.
Hélas mon problème subsiste.

Comment puis-je supprimer mon précédent fil ?

Cordialement

Willau

Comment puis-je supprimer mon précédent fil ?

Je peux le supprimer si cela n'a plus de raison d'être et le fichier que j'avais remanié

Cordialement

Bonjour Dan

Je n'ai pas vu de fichier remanié sur ledit post.
Il est vrai cependant que j'ai laissé votre contribution sans réponse, car je suis encore sur le projet non résolu.
Cordialement

Willau

Je n'ai pas vu de fichier remanié sur ledit post.

Normal, j'attendais votre réponse aux questions. Mais je vais le placer

Cordialement