XL 2019 Remplissage automatique

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Me.Range("B10:F37")) Is Nothing Then
        Me.Range("B10:F37").ClearContents
        Target = "X"
        Cancel = True
    End If
End Sub

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