double clic inscrit date et "oui dans autre cellules de la même ligne

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B7:B450")) Is Nothing Then
    Cells(Target.Row, 17).Value = "oui"
    Cells(Target.Row, 18).Value = Date
    Cancel = True
End If
End Sub