MACRO LOOP + Insertion d'une ligne vierge

Sub Mise_en_Forme_2()
Dim i As Long
Application.ScreenUpdating = False
On Error Resume Next 'si aucune cellule vide en colonne A
Range("H1", [H65536].End(xlUp)) _
  .SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides
For i = [H65536].End(xlUp).Row To 2 Step -1 'commence par le bas
  If Cells(i, "H") <> Cells(i - 1, "H") _
    Then Rows(i & ":" & i + 1).Insert '2 lignes insérées
    'Then Rows(i).Insert '1 ligne insérée
Next
End Sub

Sub Mise_en_Forme_2()
Dim fin As Long, i As Long, ad As String
Application.ScreenUpdating = False
Application.Calculation = xlManual 'mode calcul manuel, évite le recalcul
On Error Resume Next 'si aucune cellule vide en colonne A
Range("H1", [H65536].End(xlUp)) _
  .SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides
fin = [H65536].End(xlUp).Row
For i = fin To 2 Step -1 'commence par le bas
  If Cells(i, "H") <> Cells(i - 1, "H") Then
    ad = Cells(i, "U").Resize(fin - i + 1).Address(0, 0)
    Cells(fin, "V").Formula = "=SUM(" & ad & ")" 'total groupe
    fin = i - 1 'dernière ligne du groupe au dessus
    Rows(i & ":" & i + 1).Insert '2 lignes insérées
    'Rows(i).Insert '1 ligne insérée
  End If
Next
Application.Calculation = xlAutomatic 'calcul remis en automatique
End Sub

ad = Cells(i, "R").Resize(fin - i + 1, 3).Address(0, 0)
Cells(fin, "U").Formula = "=SUM(" & ad & ")" 'total groupe