Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Row
Case 7
'(semaine)
Range(Cells(Target.Row + 2, Target.Column), Cells(Target.Row + 4, Target.Column + 5)).Interior.ColorIndex = 15
Range(Cells(Target.Row + 11, Target.Column), Cells(Target.Row + 19, Target.Column + 5)).Interior.ColorIndex = 15
Case 8
'(jour)
Range(Cells(Target.Row + 1, Target.Column), Cells(Target.Row + 3, Target.Column)).Interior.ColorIndex = 6
Range(Cells(Target.Row + 10, Target.Column), Cells(Target.Row + 18, Target.Column)).Interior.ColorIndex = 6
End Select
End Sub