Public Sub Chrono()
'Programmation de l'évènement toutes les secondes
Application.ScreenUpdating = False
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Chrono"
For f = 1 To Sheets.Count
Sheets(f).Unprotect
Next
Sheets("gestion").Range("c2").Value = Time
Sheets("convertisseur").Range("g2").Value = Time
Sheets("janvier").Range("s2").Value = Time
Sheets("fevrier").Range("s2").Value = Time
Sheets("mars").Range("s2").Value = Time
Sheets("avril").Range("s2").Value = Time
Sheets("mai").Range("s2").Value = Time
Sheets("juin").Range("s2").Value = Time
Sheets("juillet").Range("s2").Value = Time
Sheets("aout").Range("s2").Value = Time
Sheets("septembre").Range("s2").Value = Time
Sheets("octobre").Range("s2").Value = Time
Sheets("novembre").Range("s2").Value = Time
Sheets("decembre").Range("s2").Value = Time
Sheets("bilan").Range("e5").Value = Time
For f = 1 To Sheets.Count
Sheets(f).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
Application.ScreenUpdating = False
End Sub