Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'Plus d'une cellule sélectionnée
' Je suis dans la plage H6:I... alors je coche ou décoche :
Ligne = Target.Row
If (Target.Column = 8 Or Target.Column = 9) And Ligne > 5 Then
Target = IIf(Target = "þ", "o", "þ")
Range("A1").Select
End If
End Sub