[COLOR=black][FONT=Verdana]Dim temps[/FONT][/COLOR]
[LEFT][COLOR=black][FONT=Verdana]Sub majHeure()[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Sheets("feuil1").Calculate[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]temps = Now + TimeValue("00:00:1")[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Application.OnTime temps, "majHeure"[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]End Sub[/FONT][/COLOR][/LEFT]
[LEFT][COLOR=black][FONT=Verdana]Sub auto_open()[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] majHeure[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]End Sub[/FONT][/COLOR][/LEFT]
[LEFT][COLOR=black][FONT=Verdana]Sub auto_close()[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]On Error Resume Next[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Application.OnTime temps, Procedure:="majHeure", Schedule:=False[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]End Sub[/FONT][/COLOR][/LEFT]