Calcul d'une somme entre 2 "0"

=SOMME(INDIRECT("C"&PETITE.VALEUR(SI(($C$2:$C$11=0)*LIGNE($C$2:$C$11)<>0;
($C$2:$C$11=0)*LIGNE($C$2:$C$11));LIGNE()-12)&":C"&PETITE.VALEUR(SI(($C$2:$C$11
=0)*LIGNE($C$2:$C$11)<>0;($C$2:$C$11=0)*LIGNE($C$2:$C$11));LIGNE()-11)))

Sub Ecarts()
Dim cel As Range, c1 As New Collection, c2 As New Collection
[c13:D65536].ClearContents
For Each cel In [C2:C11]
  If cel Like "0" Then
    c1.Add cel.Address
    If c1.Count > 1 Then _
      [C13].Offset(c1.Count - 2) = Application.Sum(Range(c1(c1.Count), c1(c1.Count - 1)))
  End If
Next
For Each cel In [D2:D11]
  If cel Like "0" Then
    c2.Add cel.Address
    If c2.Count > 1 Then _
      [D13].Offset(c2.Count - 2) = Application.Sum(Range(c2(c2.Count), c2(c2.Count - 1)))
  End If
Next
End Sub