Bonjour
Par contre il faut que le fichier soit ouvert
Private Sub workbook_open()
Application.OnTime TimeValue("13:00:00"), "test", , True
Application.OnTime TimeValue("21:00:00"), "test", , True
End Sub
Sub test()
Range("C4:E20").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub