Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("[B]D : D"[/B])) Is Nothing And Target.Row > 3 Then
'supprimer les le sespaces entre les deux D
If Target = "X" Then
Target = ""
Else
Target = "X"
End If
End If
End Sub