Créer un compte à rebours supérieur à 1 minutes dans Powerpoint

Comment insérer une minuterie dans Powerpoint ? Je sais que vous vous poser tous la question. La réponse se trouve dans la vidéo.
Ci-dessous le code utiliser pour programmer le compte à rebours :
Sub SlideTimer1()
Dim time As Date
Dim count As Integer
time = Now()
count = 180
time = DateAdd("s", count, time)
Do Until time (inf ou égal à) Now()
DoEvents
ActivePresentation.Slides(1).Shapes("Compteur").TextFrame.TextRange.Text = Format((time - Now()), "nn:ss")
Loop
ActivePresentation.Slides(1).Shapes("Compteur").TextFrame.TextRange.Text = Format(0, "nn:ss")
End Sub

Le système n'acceptant pas le signe inférieur, je vous invite à remplacer le texte "inf ou égal à " utilisé dans la boucle Do Until
Bonne réception et j'espère que cette vidéo vous aidera. Merci par avance de laisser un "like".