Désolé. Pour tester plus rapidement, j'ai testé en décrémentant le compteur toutes les secondes. Pour les minutes, la macro est :
VB:
Sub DecompteMN()
With Sheets("travail")
If IsNumeric(.[B9]) Then
If .[B9] > 0 Then
.[E4] = .[B9]
Do While .[E4] > 0
Application.Wait Now + TimeValue("0:1:0")
.[E4] = .[E4] - 1
Loop
End If
End If
End With
End Sub