VBA pour date de MAJ des onglets excel

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Sh.Range("c2").Value = Now
End Sub

 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("B4:J40")) Is Nothing Then
'MsgBox "Click on " & Target.Address
Sh.Range("c2").Value = Now
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("B4:J40")) Is Nothing Then
    Application.EnableEvents = False
    v = Target
    Application.Undo
    If ActiveCell <> v Then
        ActiveCell = v
        MsgBox "Valeur cellule " & Target.Address(RowAbsolute:=False, columnabsolute:=False) & " changée !"
        Sh.Range("c2").Value = Now
        Target.Offset(1, 0).Select
    End If
    Application.EnableEvents = True
End If
End Sub

Option Explicit

Dim memoChange As Boolean

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    memoChange = True
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If memoChange And LCase(Left(Sh.[B2], 7)) = "date de" Then Sh.[C2] = Now: memoChange = False
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If memoChange And LCase(Left([B2], 7)) = "date de" Then [C2] = Now
End Sub

Application.EnableEvents = False

Sub Activ_Event()
Application.EnableEvents = True
End Sub