Decompteur

Bonjour a tous,

J'ai fait un décompteur sur excel mais il y a quelque petits soucis.

J'ai mit une fonction horloge dans un module:

Sub Horloge()

sheets("temps").Range("a2") = Time

Application.OnTime Now + TimeValue("00:00:01"), "Horloge"

If Sheets("temps").Range("f5") <= Sheets("temps").Range("a4") Then

        Sheets("temps").Range("a1") = Sheets("temps").Range("a1") + 1

        Sheets("temps").Range("o5") = Sheets("temps").Range("a2") + sheets("temps").Range("o2")

        i = Sheets("temps").Range("a1") + 5

        Sheets("temps").Range("d17") = "" & Sheets("temps").Range("a" & i) & "/" & Sheets("temps").Range("b" & i)
    
    End If
End Sub

Dans ce fichier à la feuille "temps":
la case A2 contient l'heure
la case O5 contient l'heure (Range("A2")) + un certains delai (range("O2"))

exemple:
il est 11h:30m:00s (dans la case A2)
le delai est egale à 00:30:00 (dans la case O2)
Dans la case O5, il est 12:00:00.

Ensuite;
Dans la cellule F5 j'ai mit la formule:

=O5-A2

ce qui nous donne 00:30:00
Dans la cellule A4 j'ai mit:

00:00:00

Dans la partie VBA lorsque je fait la comparaison entre range("f5") et range("a4") , je suis obligé de faire < ou = sinon le programme ne marche pas.
Lorsque range("f5")=range("A4") j'aimerai que la fonction if s'execute mais des fois sa saute...
pourquoi?

Et aussi j'aimerai savoir comment faire pour qu'il y ait une alerte sonore lorsque le decompte approche de 0:00:00

J'espere avoir été clair!! Si non dites moi ce que vous ne comprenez pas et je reformulerai.

**BYE