[Toutes versions] Total général TCD à gauche : Solution VBA ?

Bonjour,

J'essaie de mettre le total général d'un tcd à gauche de celui-ci (se met à droite dans les options prévues par microsoft).

Je suis débutant, j'ai essayé cette macro mais ça ne fonctionne pas, auriez-vous une idée ou est-ce impossible ? Peut-être que la solution est hors macro.

Merci de votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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