Sub Chrono()
Dim i%, t
With Feuil1
.Activate
For i = 30 To 0 Step -1
t = Timer + 1
While Timer < t And t < 86400: DoEvents: Wend
.[B2] = "00:00:" & i
Next
MsgBox "Le fichier '" & .Parent.Name & "' va être fermé..."
.Parent.Saved = True 'évite l'invite à la fermeture
If Workbooks.Count = 1 Then Application.Quit Else .Parent.Close
End With
End Sub