Avec la formule j'ai fait cette macro. Elle fonctionne mais je suis sûr qu'on peut l'améliorer.
Sub Macro1()
'
' Macro1 Macro
'
'
F2_Derlign_Col_D = Feuil2.Range("D" & Rows.Count).End(xlUp).Row
Range("E2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""1er"",R[1]C[-2]-RC[-2],"""")"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E100000"), Type:=xlFillDefault
Range("E2:E100000").Select
Columns("E:E").Select
Selection.Copy
Range("F1").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Columns("D:E").Select
Selection.Delete Shift:=xlToLeft
For i = F2_Derlign_Col_D To 2 Step -1
If Feuil2.Cells(i, 1).Value = "DROP" Then Feuil2.Rows(i).EntireRow.Delete
Next i
End Sub