Macro compte a rebours

bonjour

quelqu'un pourrait me dire que manque t il dans cette macro pour avoir les minutes qui apparaissent dans le decompte

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Decompte()

Range("B2") = 10

Do

If Range("B2") = 0 Then Exit Do

Sleep 1000

Range("B2") = Range("B2") - 1

DoEvents

Loop

End Sub

merci par avance

Salut,

Pour répondre spécifiquement à ta question, passe plutôt par un décompte de temps avec TimeValue je dirais :

Sub Decompte()

Range("B2") = TimeValue("00:00:10")

Do
    If Range("B2") = TimeValue("00:00:00") Then Exit Do
    Sleep 1000
    Range("B2") = Range("B2") - TimeValue("00:00:01")
    DoEvents

Loop

End Sub

ECG

ok vais essayé merci beaucoup

ca marche merci