Sub toto()
Dim Lastlig As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("viking") 'adapter au nom de la feuille
Lastlig = .Cells(.Rows.Count, "B").End(xlUp).Row
For i = Lastlig To 3 Step -1
If .Range("B" & i - 1) <> .Range("B" & i) Then .Rows(i).Insert: .Rows(i).Interior.ColorIndex = 8
Next i
End With
haut_somme = 8
For n = 10 To Range("A65536").End(xlUp).Row + 1
If Range("A" & n) = "" Then
For m = 1 To 2
Selection.Font.Bold = True
Cells(n, 13 + m) = WorksheetFunction.Sum(Range(Cells(haut_somme, 13 + m), Cells(n - 1, 13 + m)))
Next
haut_somme = n + 1
End If
Next