cellule active

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

x = ActiveCell.Row
y = ActiveCell.Column
Target.Select
If Not Intersect(Target, Cells(x - 2, y)) Is Nothing Then

If (Cells(x, y) Is Nothing) Then
           Cells(x - 2, y) = """"
       End If
       If Now() >= Range("b2") And Now() <= Range("b3") Then
          Cells(x + 37, y) = Cells(x - 2, y)
        
       End If
       If Now() >= Range("b5") And Now() <= Range("b6") Then
          Cells(x + 64, y) = Cells(x, y)
       End If
      
End If
Target.Select
End Sub