Ajouter ligne VBA si condition

Sub inserer()
Application.ScreenUpdating = False
With ActiveSheet
    fin = .Range("Tableau1").Rows.Count + 2
    .Range("A" & fin) = "Total" 'on place les dernières lignes de Total et Cumul
    .Range("A" & fin + 1) = "Cumul"
   
    For i = .Range("Tableau1").Rows.Count - 1 To 2 Step -1
        If .Range("A" & i) <> .Range("A" & i - 1) Then
            Rows(i).Resize(2).insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            .Range("A" & i) = "Total"
            .Range("A" & i + 1) = "Cumul"
        End If
    Next i
    .Rows("2:3").Delete 'on supprime les lignes qui ont été insérées en tout début de tableau
End With
Application.ScreenUpdating = True
End Sub