Tableau croisé dynamique : sous colonnes

Bonjour à tous,

J'ai un petit souci au niveau de mon tableau croisé dynamique, je n'arrive pas à faire de sous colonnes.
Je m'explique : J'ai 2 types de datafields, somme et nombre, et ils s affichent en lignes dans mon tableau, hors je les voudrais en colonnes.
Ci après mon code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
ActiveWorkbook.Sheets("Par TC").Select
ActiveSheet.Cells(9, 1).Select
num_ligne = L - 1
Set donnees = Range(ActiveSheet.Cells(9, 1), ActiveSheet.Cells(num_ligne, 15))
 
 
Set shtcd = Sheets.Add
shtcd.Name = "TCD"
ActiveWorkbook.Sheets("TCD").Select
Set pc1 = ActiveWorkbook.PivotCaches.Add(xlDatabase, "'" & donnees.Parent.Name & "'!" & donnees.Address(ReferenceStyle:=xlR1C1))
Set pt1 = pc1.CreatePivotTable(TableDestination:=Worksheets("TCD").Cells(3, 1), TableName:="Recap") ', DefaultVersion:=xlPivotTableVersion10)
 
 
 
    With ActiveSheet.PivotTables("Recap")
        With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("A9").Value)
            .Orientation = xlRowField
            .Position = 1
        End With
        With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("O9").Value)
            .Orientation = xlColumnField
            .Position = 1
        End With
        With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("D9").Value)
            .Orientation = xlPageField
            .Position = 1
        End With
        With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("I9").Value)
            .Orientation = xlPageField
            .Position = 2
        End With
        With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("N9").Value)
            .Orientation = xlDataField
            .Caption = "Solde dû en €"
            .Position = 1
 
        End With
        With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("N9").Value)
            .Orientation = xlDataField
            .Caption = "Nombre de Retards"
            .Function = xlCount
            .Position = 2
        End With
    End With

Quelqu'un aurait il un solution à ce problème ?