XL 2016 Formule à corriger

=SOMME('Semaine 14 - Avril 2023:Semaine 18 - Avril 2023'!J7)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not Sh.Name Like "S#* *" Then Exit Sub
Dim s, mois$, w As Worksheet, feuille$(), n&, c As Range, cc As Range
'---liste des feuilles du mois---
s = Split(Application.Trim(Sh.Name))
mois = s(UBound(s) - 1) & " " & "20" & s(UBound(s))
For Each w In Worksheets
    If w.Name Like "Semaine*" & mois Then
        ReDim Preserve feuille(n)
        feuille(n) = w.Name
        n = n + 1
    End If
Next w
'--- remplissage des tableaux---
Application.ScreenUpdating = False
For Each c In Sh.[C40,E40,H40,J40,M40,P40,S40,V40] 'à adapter
    c(3).Resize(Sh.Rows.Count - c(2).Row, 2).ClearContents 'RAZ des 2 colonnes
    n = 2
    For Each w In Sheets(feuille)
        With w.Range("Y42:Y267") 'à adapter
            .Replace c, "#N/A", xlWhole 'pour pouvoir repérer les lignes à traiter
            For Each cc In Intersect(.SpecialCells(xlCellTypeConstants, 16), .Cells) 'Intersect nécessaire à cause de la colonne Z fusionnée
                If cc(1, 3) & cc(1, 5) <> "" Then
                    n = n + 1
                    c(n) = cc(1, 3)
                    c(n, 2) = cc(1, 5)
                End If
                If cc(1, 6) & cc(1, 7) <> "" Then
                    n = n + 1
                    c(n) = cc(1, 6)
                    c(n, 2) = cc(1, 7)
                End If
            Next cc
            .Replace "#N/A", c 'remise en état
        End With
Next w, c
'---masquage des lignes vides---
Sh.Rows("42:100").Hidden = False 'affiche
n = Sh.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
If n <= 100 Then Sh.Rows(n & ":100").Hidden = True 'masque
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Sh.Name Like "Semaine*" Then Exit Sub
If Intersect(Target, Sh.[V63,V96,V129,V162,V195,V228,V261]) Is Nothing _
    Or Target.CountLarge > 1 Or Not IsNumeric(CStr(Target(1).Value)) Then Exit Sub
Target.Select
If Left(Target(2).Formula, 1) <> "=" Or Not IsNumeric(Target(2)) Then Target(2) = "="
Target(2) = Target(2).Formula & IIf(Target >= 0, "+", "-") & Replace(Abs(Target), ",", ".")
Target = ""
End Sub

            For Each cc In Intersect(.SpecialCells(xlCellTypeConstants, 16), .Cells) 'Intersect nécessaire à cause de la colonne Z fusionnée
                For i = 1 To IIf(cc(3) Like "*Total*", 3, 4)
                    If cc(i, 3) & cc(i, 5) <> "" Then
                        n = n + 1
                        c(n) = cc(i, 3)
                        c(n, 2) = cc(i, 5)
                    End If
                    If cc(i, 6) & cc(i, 7) <> "" Then
                        n = n + 1
                        c(n) = cc(i, 6)
                        c(n, 2) = cc(i, 7)
                    End If
            Next i, cc