Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Case à cocher et Dates
With Target
If .Count > 1 Then Exit Sub
If .Row > 3 Then
'CASE A COCHER
Select Case .Column
Case 10, 12, 13, 15, 17, 18, 20
If .Value = "X" Then
.Value = ""
Else
.Value = "X"
If .Column = 12 Or .Column = 17 Then
If .Offset(0, 1) = "X" Then .Offset(0, 1) = ""
End If
If .Column = 13 Or .Column = 18 Then
If .Offset(0, -1) = "X" Then .Offset(0, -1) = ""
End If
End If
End Select
'DATE
Select Case .Column
Case 10, 15, 20
If .Offset(0, 1) <> "" Then
.Offset(0, 1) = ""
Else
.Offset(0, 1) = Date
End If
Case 13, 18
If .Offset(0, 1) <> "" And .Value = "" Then
.Offset(0, 1) = ""
Else
.Offset(0, 1) = Date
End If
Case 12, 17
If .Offset(0, 2) <> "" And .Value = "" Then
.Offset(0, 2) = ""
Else
.Offset(0, 2) = Date
End If
End Select
End If
End With
End Sub