XL 2016 Formule à corriger

=SI(OU(B8="";C8="");"";SI(C8<AUJOURDHUI();"Périmé";SI(DATEDIF(AUJOURDHUI();C8;"m")>0;DATEDIF(AUJOURDHUI();C8;"m")&" mois et ";"")&DATEDIF(AUJOURDHUI();C8;"md")&SI(OU(DATEDIF(AUJOURDHUI();C8;"md")=1;DATEDIF(AUJOURDHUI();C8;"md")=0);" jour";" jours")))

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [J17]) Is Nothing Then
         Application.ScreenUpdating = False
         Application.EnableEvents = False
         [J18] = [J18] + [J17]
         [J17] = ""
         [J17].Select
    End If
Fin:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$17" Or Not IsNumeric(CStr(Target(1).Value)) Then Exit Sub
Target.Select
If Left([J18].Formula, 1) <> "=" Or Not IsNumeric([J18]) Then [J18] = "="
[J18] = [J18].Formula & IIf(Target >= 0, "+", "-") & Replace(Abs(Target), ",", ".")
Target = ""
End Sub

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [J17]) Is Nothing Or _
        Not Intersect(Target, [J26]) Is Nothing Then
        Addition ActiveSheet.Name, Target.Address
    End If
End Sub

Sub Addition(Feuille, Cellule)
    'On Error GoTo Fin
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    With Sheets(Feuille)
        L = Range(Cellule).Row
        C = Range(Cellule).Column
        .Cells(L + 1, C) = .Cells(L + 1, C) + .Cells(L, C)
        .Cells(L, C) = ""
    End With
Fin:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub