Function Couverture(stock As Double, periode As Range) As Double
Dim n As Byte, cel As Range, v As Double, s As Double
n = 5 'durée de la semaine en jours
For Each cel In periode
v = cel
If v + s > stock Then GoTo 1
s = v + s
Couverture = Couverture + 1
Next
'---extrapolation sur base dernière valeur v---
While v + s < stock
s = v + s
Couverture = Couverture + 1
Wend
1 Couverture = Couverture + (stock - s) / v 'interpolation
Couverture = Int(CDec(10 * n * Couverture)) / 10
End Function