Function Max_Nacelle(plage As Range) As Double
Dim datas, maxi As Double, col As Long
datas = plage.Value
For col = 1 To UBound(datas, 2)
If datas(1, col) = 0 Then
Max_Nacelle = Max_Nacelle + maxi: maxi = 0
Else
If datas(1, col) > maxi Then maxi = datas(1, col)
End If
Next col
Max_Nacelle = Max_Nacelle + maxi
End Function