XL 2013 Moyenne glissante des 25 dernières données

=SIERREUR(SI(B2="AREF";"";SOMME(SI( (($B$2:B2<>"AREF") * (LIGNE($B$2:B2)>=GRANDE.VALEUR(SI($B$2:B2<>"AREF";LIGNE($B$2:B2);"");Rolling)) )>0;$C$2:C2;""))/Rolling);"")

Function MoyenneGlissante(plage1 As Range, plage2 As Range, nval&, Optional exclu$)
Dim i&, n&, s#
For i = plage1.Rows.Count To 1 Step -1
    If plage1(i) <> exclu And IsNumeric(CStr(plage2(i))) Then
        n = n + 1
        s = s + plage2(i)
        If n = nval Then MoyenneGlissante = s / nval: Exit Function
    End If
Next
MoyenneGlissante = ""
End Function