Sub auto_open()
If Weekday(Date) > 2 And Weekday(Date) < 7 Then 'définit jours semaine (3 enregistrements / jour)
Application.OnTime EarliestTime:=TimeValue("06:00:00"), Procedure:="ferme"
Application.OnTime EarliestTime:=TimeValue("14:00:00"), Procedure:="ferme"
Application.OnTime EarliestTime:=TimeValue("22:00:00"), Procedure:="ferme"
Else 'Sinon WE (2 enregistrements / jour)
Application.OnTime EarliestTime:=TimeValue("06:00:00"), Procedure:="ferme"
Application.OnTime EarliestTime:=TimeValue("18:00:00"), Procedure:="ferme"
End If
End Sub