Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Intersect(Me.[B7:E30,G7:J30], Target) Is Nothing Then Exit Sub
Target.Value = "Présent"
Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Intersect(Me.[B7:E30,G7:J30], Target) Is Nothing Then Exit Sub
Target.Value = "Absent"
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Me.[B7:E30,G7:J30], Target) Is Nothing Then Exit Sub
Target.Value = IIf(Target.Value = "Présent", "Absent", "Présent")
End Sub