Function somme + max dans des différantes plages

Bonjour à tous,

Je cherche une formule que permet de chercher les plages entre des zéros et compter la somme de max de chaque plage ;

Par Exemple: cell1= 2 cell2= 3 cell4= 1 cell5= 0 cell6= 0 cell7= 0 cell8= 2 cell9= 1 cell10= 0

Plage1: cell1= 2 cell2= 3 cell4= 1

Plage2: cell8= 2 cell9= 1

Somme = [Max(Plage1);Max(Plage2))]

Merci d'avance,

Voici le code que je l'ai utilisé mais ça fonctionne pas!!! vous pouvez m'aider SVP?

<

Function Max_Nacelle(plage As Range) As Integer

Application.Volatile

Dim colec As New Collection

Dim cel As Range

Dim Max As Integer

For Each cel In plage.Cells

On Error Resume Next

If cel.Value <> "" Then

colec.Add cel.Value, CStr(cel.Value)

End If

Max = Application.WorksheetFunction.Max(colec)

Next cel

Max_Nacelle = Max_Nacelle + Max

End Function

>

Merci,