but it did not work ......
is a little bit fuzzy. What didn't work?
Also is your 'End Sub' in the wrong place?
' Calculer la série temporelle y_i = ?(a_i - moyenne(a))
For i = 1 To n
' Calculer la série y_i en utilisant la somme cumulative des différences
If i = 1 Then
newY(i) = diff(i)
Else
newY(i) = newY(i - 1) + diff(i)
End If
' Afficher la série temporelle y_i dans la colonne C de la feuille Excel
ws.Cells(i + 1, 3).Value = newY(i)
Next i
End Sub ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
' Définir les tailles des boîtes
boiteTailles = Array(250, 500, 1000, 1500)
Do you want the formulas in this section only?
Capture.JPG