Option Compare Text
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[B]If Not Intersect([B:B], Target) Is Nothing Then[/B]
Select Case ActiveCell.Value
Case ""
ActiveCell.Value = "OUI"
Case "OUI"
ActiveCell.Value = "NON"
Case "NON"
ActiveCell.Value = "OUI"
End Select
Cancel = True
[B]End If[/B]
End Sub