VBA et fonctions si somme decaler

Bonjour la communauté,

J'ai deux difficultés avec mon fichier :

La première est le calcul des heures supplémentaires dans l'onglet "X" colonne "O". Le résultat s'affiche uniquement s'il est positif alors que je souhaite qu'il s'affiche qu'il soit positif ou négatif. La formule utilisée est

=SI(JOURSEM([@Date];2)<7;0;MAX(0;SOMME(DECALER([@[Nombre heures]];-6;;7))+SOMME(DECALER([@[H_Abs]];-6;;7))-_HS))

Le deuxième concerne le code VB inséré dans l'onglet "X". La vérification des dates en colonne C doit commencer à partir de la ligne 5 alors que dans ce code il commence au début de la colonne.

Private Sub Worksheet_Change(ByVal Target As Range)
  ' Vérifier si saisi dans les cellules G à H et J à L
  If Not Intersect(Range("G:H,J:L"), Target) Is Nothing Then
    ' Vérifier si la date est inférieure ou non à I1
    If Range("C" & Target.Row) <= Range("I1") Then
      Application.EnableEvents = False
      Application.Undo
      Application.EnableEvents = True
      MsgBox "Vous ne pouvez plus rien saisir sur la ligne du : " & vbCr _
        & Format(Range("C" & Target.Row), "dddd d mmmm yyyy"), vbCritical, "Horaire validée"
    End If
  End If
End Sub

Merci pour vos lumières