Macro, cellules cochées et scoring : besoin d'aide :)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D2:O38")) Is Nothing Then
    'on regarde le contenu de la colonne A: s'il s'agit d'un sous item
    indice = Cells(Target.Row, 1)
    'on cherche vers le haut le prochain chiffre
    DebQuestion = indice
    i = 0
    While Not (WorksheetFunction.IsNumber(DebQuestion))
        i = i + 1
        DebQuestion = Cells(Target.Row, 1).Offset(-i, 0).Value
    Wend
    LigneDeb = Target.Row - i + 1
  
    'on cherche vers le bas le prochain chiffre:
    FinQuestion = indice
    i = 0
    While Not (WorksheetFunction.IsNumber(FinQuestion))
        i = i + 1
        FinQuestion = Cells(Target.Row, 1).Offset(i, 0).Value
    Wend
    LigneFin = Target.Row + i - 1
    
    'on change la coche cliquée
    Target = IIf(Target = "þ", "¨", "þ")
    'pour chaque sous item de la question, on remet la coche vide
    For i = LigneDeb To LigneFin
        If i <> Target.Row Then
            Cells(i, Target.Column) = "¨"
        End If
    Next i
    Target.Offset(1, 0).Select
    
End If
End Sub