Option Explicit
Dim contenu
Public Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B9")) Is Nothing Then
Application.EnableEvents = False
If Target = "DOWN" And contenu = "UP" Then
Target.Offset(0, 2) = Format(Now, "yyyy/mm/dd") & " à " & Format(Now, "hh:mm:ss")
Else
Target.Offset(0, 2) = ""
End If
Application.EnableEvents = True
End If
End Sub
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B9")) Is Nothing Then
contenu = Target
End If
End Sub