Action après compte à rebours

Bonjour, j'ai fait un compte à rebours de 5s et j'aimerais qu'une fois qu'il est fini que la case A3 soit sélectionnée.

Voici le code de mon compte à rebours:

Dim ok As Boolean
Sub next1()
ActiveSheet.Next.Select
ok = True
Range("A1") = TimeSerial(0, 0, 5)
Call decompte
End Sub
Sub decompte()
If ok Then
If Range("A1") = 0 Then
ok = False
Range("A1") = TimeSerial(0, 0, 5): End
End If
Range("A1") = Range("A1") - TimeSerial(0, 0, 1)
Range("A1").NumberFormat = "mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "deCompte"
End If
End Sub

Merci de votre aide

Bonsoir,

A tester...

Cdlt

Option Explicit
Dim ok As Boolean
Sub next1()
'ActiveSheet.Next.Select
    ok = True
    Range("A1") = TimeSerial(0, 0, 5)
    Call decompte
End Sub
Sub decompte()
    If ok Then
        If Range("A1") = 0 Then
            Range("A3").Select
            ok = False
            Range("A1") = TimeSerial(0, 0, 5): End
        End If
        Range("A1") = Range("A1") - TimeSerial(0, 0, 1)
        Range("A1").NumberFormat = "mm:ss"
        Application.OnTime Now + TimeValue("00:00:01"), "deCompte"
    End If
End Sub

Merci de ta solution, ça marche parfaitement.

Par contre si je clique sur une autre cellule, C3 n'est plus sélectionnée. Je ne suis pas bloqué à C3.

Pourrais t-on faire en sorte que l'on ne puisse pas désélectionner C3 ?

Merci de votre aide

Re,

Pourquoi parles-tu de C3?

Cdlt.

A3, je voulais dire A3. Je me suis trompé !!

Re,

Il va falloir que tu apprennes à formuler tes questions

Une fois le compte à rebours terminé, A3 se sélectionne. Mais si j’appuie sur une autre cellule A3 n'est plus sélectionnée. Pourrais t-on faire en sorte que A3 soit toujours sélectionnée. Cordialement