Microsoft 365 Macro, dates et heures courantes

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

     If Target.Count > 1 Then Exit Sub
     
     If Not Intersect(Target, Columns("G")) Is Nothing And Target.Interior.Color = RGB(217, 217, 217) Then
        Target = Date
        Target.Offset(0, 1) = Format(Now(), "hh:mm:ss")
     End If
     
     If Not Intersect(Target, Columns("J")) Is Nothing And Target.Interior.Color = RGB(217, 217, 217) Then
        Target = Date
        Target.Offset(0, 2) = Format(Now(), "hh:mm:ss")
     End If
     
     Cancel = True

End Sub