Check box automatique en double

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, [H:H]) Is Nothing Then
    Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
    Target.Offset(0, -4).Interior.ColorIndex = IIf(Target.Value = "þ", 4, xlNone)
Cancel = True
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True ' le Double click ne sert qu'a ça
If Not Application.Intersect(Target, [H4:I65536]) Is Nothing Then 'ne concerne que les colonnes H et I
Target.Value = IIf(Target.Value = "þ", "o", "þ") 'si la cellule est = þ au _
double click elle devient o au double click suivant elle redevient þ etc...
    If Target.Value = "þ" Then 'si la cellule = þ
        Range("D" & Target.Row).Interior.ColorIndex = IIf(Target.Column = 8, 4, 3)
        ' colorie en gris la plage de cellules da A à C
            Else ' sinon
        Range("D" & Target.Row).Interior.ColorIndex = xlNone
        ' remet la couleur d'origine sur cette même plage
    End If ' Fin de la 1ère condition
End If ' fin de la 2ème condition
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, [H:H]) Is Nothing Then
    Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
    Target.Offset(0, -4).Interior.ColorIndex = IIf(Target.Value = "þ", 4, xlNone)
Cancel = True
End If
If Not Application.Intersect(Target, [I:I]) Is Nothing Then
    Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
    Target.Offset(0, -5).Interior.ColorIndex = IIf(Target.Value = "þ", 3, xlNone)
Cancel = True
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("H:I")) Is Nothing Then
    Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
    Target.Offset(0, IIf(Target.Column = 8, 1, -1)).Value = IIf(Target.Value = "þ", "o", "þ")
    Cells(Target.Row, 4).Interior.ColorIndex = IIf(Cells(Target.Row, 8).Value = "þ", 4, 3)
    Cancel = True
End If
End Sub