Bonjour,
Tu peux mettre les macros dans chaque module de feuille :
Private Const adr$ = "C10"
Private ok As Boolean
Private Sub btnStart_Click()
ok = True
Me.Range(adr) = TimeSerial(0, 0, 30)
Me.Range(adr).NumberFormat = "[mm]:ss"
Call Decompte
End Sub
Private Sub btnStop_Click()
ok = False
End Sub
Private Sub Decompte()
If ok Then
DoEvents
Me.Range(adr) = Me.Range(adr) - TimeSerial(0, 0, 1)
If Me.Range(adr) = 0 Then
ok = False
Exit Sub
End If
Application.OnTime Now + TimeValue("00:00:01"), Me.CodeName & ".DeCompte"
End If
End Sub
Exemple fichier joint