Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Set rg = Intersect(Target, Range("B10:F37"))
If Not rg Is Nothing Then
ligne = ActiveCell.Row
Range("B" & ligne & ":F" & ligne).ClearContents
Target = "X"
Cancel = True
End If
Set rg = Nothing
End Sub