Microsoft 365 Total général TCD à gauche : Solution VBA ?

Sub MoveRowTotalAllTCDsToLeft()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pf As pivotField
    Dim pi As PivotItem
 
    Set ws = ActiveSheet
 
    For Each pt In ws.PivotTables
        For Each pf In pt.RowFields
            On Error Resume Next
            pf.AutoSort xlManual, pf.SourceName
            For Each pi In pf.PivotItems
                If pi.Name = "(Grand Total)" Then
                    pi.Position = 1
                    Exit For
                End If
            Next pi
            On Error GoTo 0
        Next pf
    Next pt
 
End Sub