Public Sub prcsomme()
Dim i As Integer
Dim lastline As Integer
lastline = Cells(2, 1).End(xlDown).Row
Application.ScreenUpdating = False
For i = lastline To 2 Step -1
If Cells(i, 1) Like ("Page*") Then Rows(i).Delete
Do While Cells(i, 1) = Cells(i - 1, 1)
Cells(i, 2) = Cells(i, 2) + Cells(i - 1, 2) And Rows(i - 1).Delete
Loop
Next i
Application.ScreenUpdating = True
End Sub