XL 2016 VBA soustraire un chiffre à la valeur de la cellule

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("C6:C42")) Is Nothing Then
    Application.EnableEvents = False
    Target.Value = Target.Value - 7
    Application.EnableEvents = True
  End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  ' Vérifier que ce ne soit pas le calendrier ou les travaux, sinon on sort
  If InStr(1, Sh.Name, "Calendrier") > 0 Or InStr(1, Sh.Name, "Travbaux") > 0 Then Exit Sub
  ' Vérifier ou est modifié la valeur
  If Not Intersect(Target, Sh.Range("C6:C42")) Is Nothing Then
    Application.EnableEvents = False
    Target.Value = Target.Value - 7
    Application.EnableEvents = True
  End If
End Sub