Sub Supprime()
Dim L%, i%
Application.ScreenUpdating = False
With Sheets("Extract Achat")
For L = .Range("D65500").End(xlUp).Row To 8 Step -1
If .Cells(L, "D") <> "" Then
If Left(.Cells(L, "D"), 4) <> "MNF-" Then
For i = 6 To 52
If Cells(L - 1, i) + Cells(L, i) <> 0 Then
Cells(L - 1, i) = Cells(L - 1, i) + Cells(L, i)
End If
Next i
Cells(L, 1).EntireRow.Delete
End If
End If
Next L
End With
End Sub