Function SommeN(xplage As Range, Combien&, Optional siMoins)
Dim Moins, t, i&, somme, n&
Moins = IsMissing(siMoins)
If xplage.Rows.Count = 1 Then 'cas ou plage ne comporte qu'une seule cellule
ReDim t(1 To 1, 1 To 1)
t(1, 1) = xplage.Columns(1)(1)
Else
t = xplage
End If
For i = UBound(t) To 1 Step -1
If n >= Combien Then Exit For
If t(i, 1) <> "" Then n = n + 1: somme = somme + t(i, 1)
Next i
SommeN = somme
If Not IsMissing(siMoins) Then If n < Combien Then SommeN = siMoins
End Function