Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MaPlage As Range
Set MaPlage = Application.Intersect(Target, Range('a1:b10')) ' à adapter
If MaPlage Is Nothing Then
Exit Sub
ElseIf Target = '' Then
Target = 'X'
Else
Target = ''
End If
End Sub