For m = 5 To lignefin2
m = n
Do While Range("E" & n).Value = Range("E" & n + 1).Value And Range("F" & n).Value = Range("F" & n + 1).Value
Range("J" & n).FormulaR1C1 = Range("J" & n).Value + Range("J" & n + 1).Value
Range("K" & n).FormulaR1C1 = Range("K" & n).Value + Range("K" & n + 1).Value
Range("M" & n).FormulaR1C1 = Range("M" & n).Value + Range("M" & n + 1).Value
Range("N" & n).FormulaR1C1 = Range("N" & n).Value + Range("N" & n + 1).Value
Range("O" & n).FormulaR1C1 = Range("O" & n).Value + Range("O" & n + 1).Value
Range("P" & n).FormulaR1C1 = Range("P" & n).Value + Range("P" & n + 1).Value
Range("Q" & n).FormulaR1C1 = Range("Q" & n).Value + Range("Q" & n + 1).Value
Range("R" & n).FormulaR1C1 = Range("R" & n).Value + Range("R" & n + 1).Value
Range("S" & n).FormulaR1C1 = Range("S" & n).Value + Range("S" & n + 1).Value
Rows(n + 1).Select
Selection.Delete Shift:=xlUp
n = n + 1
Loop
Next m