Private TEST As Boolean
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If TEST = -True Then Exit Sub
If Not Intersect([A1:A6], Target) Is Nothing And Target.Count = 1 Then
TEST = True
Cancel = True
Select Case Target.Value
Case ""
Target = "Madame"
Case "Madame"
Target.Value = "Monsieur"
Case "Monsieur"
Target.Value = ""
End Select
TEST = False
End If
End Sub