Probleme de timer

Bonjour à tous !

Alors voilà mon problème, j'aimerai créer un timer (minuteur et non un chronomètre)

Mon timer marche mais je n'arrive pas à insérer un bouton pause et un bouton réinitialiser à 10min

Si quelqu'un peut m'aider , ce serait très gentil.

Dim ChronoEnCours As Boolean, Pause As Boolean
Dim Depart As Double, Temps As Double

Sub CommandButton1_Click()
' Bouton Play
  If ChronoEnCours = True Then Exit Sub
  ChronoEnCours = True
  Depart = [now()]
  Range("W31") = "00:10:00"
  Timer
End Sub

Sub CommandButton2_Click()
' Bouton stop
  If ChronoEnCours = True Then Exit Sub
  ChronoEnCours = True
  Depart = [now()]
  Range("W31") = "00:10:00"
  Timer
  ChronoEnCours = False
  Pause = False
  Range("W31") = "00:10:00"
  End Sub

Sub Timer()
On Error Resume Next
Dim xRng As Range
Set xRng = Application.Sheets("Feuil2").Range("W31")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    xRng.Value = TimeSerial(0, 10, 0)
    'Exit Sub
End If
gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "Timer"
End Sub

Je peux mettre les deux codes bruts que j'avais trouvé avant de les modifier

Salut Bibine,

quelque chose ainsi ?

Private Sub cmdOnOff_Click()
'
[A1] = "00:10:00"
If Me.cmdPause.Enabled = True And Me.cmdPause.Caption = "PAUSE" Then Application.OnTime Now + TimeValue("00:00:01"), "Tempo", , False
If Me.cmdONOFF.Caption = "START" Then Application.OnTime Now + TimeValue("00:00:01"), "Tempo", , True
'
Me.cmdONOFF.Caption = IIf(Me.cmdONOFF.Caption = "START", "STOP", "START")
Me.cmdPause.Enabled = IIf(Me.cmdONOFF.Caption = "START", False, True)
Me.cmdReset.Enabled = IIf(Me.cmdONOFF.Caption = "START", False, True)
'
End Sub

A+