Public Function MoyN(Liste As Range, N As Long)
Dim T, i As Long, k As Long, s
MoyN = CVErr(xlErrNA)
T = Liste.Columns(1).Value
For i = UBound(T) To 1 Step -1
If T(i, 1) <> "" Then
If IsNumeric(T(i, 1)) Then
k = k + 1
s = s + T(i, 1)
If k = N Then
MoyN = s / N
Exit Function
End If
End If
End If
Next i
End Function