Bonsoir JJ,
Je te propose ce code pour passer en revue la plage des valeurs en commençant par la seconde valeur. Le résultat est reporté à chaque ligne dans la cellule de la colonne à droite :
A2 : 4
A3 : 6 : 2
A4 : 10 : 3
A5 : 16 : 4
Sub MoyEcarts()
Dim Plage As Range, C As Range, L As Integer, M As Variant, N As Variant
L = Range('A10000').End(xlUp).Row
Set Plage = Range('A3:A' & L)
For Each C In Plage
N = N + C - C.Offset(-1, 0)
M = M + 1
C.Offset(0, 1) = N / M
Next C
End Sub
Cordialement
Bernard