Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim notes() As Variant
notes = Array(0, 0.5, 1, 1.5, 2, 2.5)
If Target.Columns.Count > 1 Then Exit Sub
'De 18 à 27
If Target.Column >= 3 And Target.Column <= 7 Then
If Target.Row >= 18 And Target.Row <= 27 Then
Range(Cells(Target.Row, 3), Cells(Target.Row, 7)).Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
Range("N" & Target.Row) = notes(Target.Column - 3)
End If
End If
'De 33 à 40
If Target.Column >= 3 And Target.Column <= 8 Then
If Target.Row >= 33 And Target.Row <= 40 Then
Range(Cells(Target.Row, 3), Cells(Target.Row, 8)).Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
Range("N" & Target.Row) = notes(Target.Column - 3)
End If
End If
End Sub