Microsoft 365 Stopper macro si

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("AD6:AD1000")) Is Nothing Then
    Dim lig As Variant
    Cancel = True
    Target = Date
    With Sheets("Base")
        lig = Application.Match(Cells(Target.Row, "A"), .Columns("E"), 0)
        If IsNumeric(lig) Then
            With .Cells(lig, "Q")
                If .Value <> "Val AR" Then
                    .Interior.Color = Cells(Target.Row, "AR").DisplayFormat.Interior.Color
                    .Font.Color = Cells(Target.Row, "AR").DisplayFormat.Font.Color
                    .Value = Cells(Target.Row, "AR").Value
                End If
            End With
        End If
    End With
End If
End Sub