Sub horaire_non_respecte()
Dim xZone As Range, xLigne As Range
For Each xZone In Selection.Areas
For Each xLigne In xZone.Rows
Cells(xLigne.Row, "a") = 2
With Cells(xLigne.Row, "b").Resize(, 13).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next xLigne
Next xZone
Cells(Selection.Row, 2).Select
End Sub