Sub calcul()
Dim i As Integer, j As Integer, num As Integer
j = 1
Application.Goto Sheets('feuil1').Range('B1')
Selection.End(xlDown).Select
lig = ActiveCell.Row
num = lig
For i = lig To 2 Step -1
Cells(j, 5).Value = (Cells(num, 2).Value - Cells(num - 1, 2).Value)
j = j + 1
num = num - 1
Next i
End Sub