XL 2013 Date de la modification sur une ligne excel

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C1:L50")) Is Nothing Then 'plage à definir
      If Target.Row > 1 Then Cells(Target.Row, "B") = Now()
    End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C1:L50")) Is Nothing Then 'plage à definir
      If Sh.Name <> "Accueil" And Sh.Name <> "Archives" Then
        If Target.Row > 1 Then Cells(Target.Row, "B") = Now()
      End If
    End If
End Sub