XL pour MAC Additionner deux nombres d'une même cellule séparés par alt+enter

Sub Essai()
  If ActiveSheet.Name <> "ExportDetailsRetailes_2021-04-0" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
  Dim s$, c As String * 1, z As Byte, t, v1#, v2#, k%, i&
  Application.ScreenUpdating = 0
  For i = 2 To n
    With Cells(i, 1)
      s = .Value
      If s <> "" Then
        c = Left$(s, 1): k = IIf(c = "C", 3, 4): z = -(InStr(s, vbLf) > 0)
        If z = 0 Then
          v1 = .Offset(, 1)
          If v1 > 0 Then .Offset(, 2) = v1: .Offset(, k) = v1
        Else
          t = Split(.Offset(, 1), vbLf): v1 = t(0): v2 = t(1)
          If v1 > 0 Then .Offset(, k) = v1
          If v2 > 0 Then .Offset(, 7 - k) = v2
          v2 = v1 + v2: If v2 > 0 Then .Offset(, 2) = v2
        End If
      End If
    End With
  Next i
End Sub

=SOMMEPROD(FILTRE.XML("<a><b>"&SUBSTITUE(B2;CAR(10);"</b><b>")&"</b></a>";"//b"))

=SIERREUR(INDEX(FILTRE.XML("<a><b>"&SUBSTITUE($B2;CAR(10);"</b><b>")&"</b></a>";"//b");COLONNES($D:D));"")

Sub Essai()
  If ActiveSheet.Name <> "ExportDetailsRetailes_2021-04-0" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
  Dim chn$, c As String * 1, z As Byte, t1, t2, v#, s#
  Dim m As Byte, k%, i&, j As Byte: Application.ScreenUpdating = 0
  i = Cells(Rows.Count, 3).End(3).Row: If i > 1 Then Range("C2:G" & i).ClearContents
  For i = 2 To n
    With Cells(i, 1)
      chn = .Value
      If chn <> "" Then
        c = Left$(chn, 1): k = 3 - (c = "C") - 2 * (c = "S") - 3 * (c = "V")
        z = -(InStr(chn, vbLf) > 0)
        If z = 0 Then
          v = .Offset(, 1)
          If v > 0 Then .Offset(, 2) = v: .Offset(, k) = v
        Else
          t1 = Split(chn, vbLf): t2 = Split(.Offset(, 1), vbLf): m = UBound(t1): s = 0
          For j = 0 To m
            c = Left$(t1(j), 1): k = 3 - (c = "C") - 2 * (c = "S") - 3 * (c = "V")
            v = t2(j): If v > 0 Then .Offset(, k) = v: s = s + v
          Next j
          If s > 0 Then .Offset(, 2) = s
        End If
      End If
    End With
  Next i
End Sub

Sub Essai()
  If ActiveSheet.Name <> "ExportDetailsRetailes_2021-04-0" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
  Dim chn$, c As String * 1, z As Byte, t1, t2, v#, s#
  Dim m As Byte, k%, i&, j As Byte: Application.ScreenUpdating = 0
  i = Cells(Rows.Count, 3).End(3).Row: If i > 1 Then Range("C2:G" & i).ClearContents
  For i = 2 To n
    With Cells(i, 1)
      chn = .Value
      If chn <> "" Then
        z = -(InStr(chn, vbLf) > 0)
        If z = 0 Then
          c = Left$(chn, 1): k = 3 - (c = "C") - 2 * (c = "S") - 3 * (c = "V")
          v = .Offset(, 1): If v > 0 Then .Offset(, 2) = v: .Offset(, k) = v
        Else
          t1 = Split(chn, vbLf): t2 = Split(.Offset(, 1), vbLf): m = UBound(t1): s = 0
          For j = 0 To m
            c = Left$(t1(j), 1): k = 3 - (c = "C") - 2 * (c = "S") - 3 * (c = "V")
            v = t2(j): If v > 0 Then .Offset(, k) = v: s = s + v
          Next j
          If s > 0 Then .Offset(, 2) = s
        End If
      End If
    End With
  Next i
End Sub

Option Explicit

Private Function Ind(chn$) As Byte
  Dim c As String * 1: c = Left$(chn, 1): Ind = 4 - (c = "R")
End Function

Sub Essai()
  If ActiveSheet.Name <> "ExportDetailsRetailes_2021-04-0" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
  Dim T, chn$, z As Byte, t1, t2, v1#, v2#, s#, i&
  n = n - 1: T = [A2].Resize(n, 5): Application.ScreenUpdating = 0
  i = Cells(Rows.Count, 3).End(3).Row: If i > 1 Then Range("C2:E" & i).ClearContents
  For i = 1 To n
    chn = T(i, 1)
    If chn <> "" Then
      z = -(InStr(chn, vbLf) > 0)
      If z = 0 Then
        v1 = T(i, 2): If v1 > 0 Then T(i, 3) = v1: T(i, Ind(chn)) = v1
      Else
        t1 = Split(chn, vbLf): t2 = Split(T(i, 2), vbLf)
        v1 = t2(0): If v1 > 0 Then chn = t1(0): T(i, Ind(chn)) = v1
        v2 = t2(1): If v2 > 0 Then chn = t1(1): T(i, Ind(chn)) = v2
        s = v1 + v2: If s > 0 Then T(i, 3) = s
      End If
    End If
  Next i
  [A2].Resize(n, 5) = T
End Sub

Option Explicit

Private Function Ind(chn$) As Byte
  Dim c As String * 1
  c = Left$(chn, 1): Ind = 4 - (c = "C") - 2 * (c = "S") - 3 * (c = "V")
End Function

Sub Essai()
  If ActiveSheet.Name <> "ExportDetailsRetailes_2021-04-0" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
  Dim T, chn$, z As Byte, t1, t2, m As Byte, v#, s#, i&, j As Byte
  n = n - 1: T = [A2].Resize(n, 7): Application.ScreenUpdating = 0
  i = Cells(Rows.Count, 3).End(3).Row: If i > 1 Then Range("C2:G" & i).ClearContents
  For i = 1 To n
    chn = T(i, 1)
    If chn <> "" Then
      z = -(InStr(chn, vbLf) > 0)
      If z = 0 Then
        v = T(i, 2): If v > 0 Then T(i, 3) = v: T(i, Ind(chn)) = v
      Else
        t1 = Split(chn, vbLf): t2 = Split(T(i, 2), vbLf): m = UBound(t1): s = 0
        For j = 0 To m
          v = t2(j): If v > 0 Then chn = t1(j): T(i, Ind(chn)) = v: s = s + v
        Next j
        If s > 0 Then T(i, 3) = s
      End If
    End If
  Next i
  [A2].Resize(n, 7) = T
End Sub

Function Total(x$)
Dim s, i%
x = Replace(x, ",", ".")
s = Split(x, vbLf)
For i = 0 To UBound(s)
    Total = Total + Val(s(i))
Next
End Function

Private Sub Worksheet_Activate()
Dim d As Object, tablo, i&, x$, y$, s1, s2, ub%, j%, z$
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
tablo = Feuil2.[A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide
For i = 2 To UBound(tablo)
    x = tablo(i, 1)
    y = Replace(tablo(i, 2), ",", ".")
    s1 = Split(x, vbLf)
    s2 = Split(y, vbLf)
    ub = UBound(s1)
    If UBound(s2) < ub Then y = y & String(ub - UBound(s2), vbLf): s2 = Split(y, vbLf)
    For j = 0 To ub
        z = Trim(s1(j))
        If z <> "" Then d(z) = d(z) + Val(s2(j)) 'somme des CA TTC
Next j, i
'---restitution---
With [A2] '1ère cellule de destination, à adapter
    If d.Count Then
        .Resize(d.Count) = Application.Transpose(d.keys) 'Transpose est limitée à 65536 lignes
        .Offset(, 1).Resize(d.Count) = Application.Transpose(d.items)
    End If
    .Offset(d.Count).Resize(Rows.Count - d.Count - .Row + 1, 2).ClearContents 'RAZ en dessous
End With
End Sub