Problème timer

Bonjour, j'ai ce code qui fonctionne, le probléme c'est que je voudrais que quand le timer arrive à 0, il reste à 0 . Merci

Dim ok As Boolean
Sub Demarrechrono()

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 = "ss"
    Application.OnTime Now + TimeValue("00:00:01"), "decompte"

End If

End Sub

Je viens de trouver, il suffisait de remplacer :

Range("A1") = TimeSerial(0, 0, 5): End

par

Range("A1") = TimeSerial(0, 0, 0): End