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