Sub calCoeff()
'déclaration des variables
Dim i As Integer, n As Integer
Dim DerLig As Long
'1ere boucle de traitement
With Worksheets("Moyenne_Mobile")
DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
For i = 3 To DerLig - 1
.Range("E" & i) = Application.Sum(Range("B" & i - 1 & ":B" & i + 1)) / 4
Next i
For i = 3 To DerLig - 3
.Range("F" & i) = Application.Sum(Range("E" & i & ":E" & i + 1)) / 2
Next i
End With
End Sub