VBA Connection TCD et Segment

Bonjour et merci d'avance!

Je souhaite réaliser une macro pour créer un TCD (feuille "Détails infra) et le connecté à des segments existants (feuille "sommaire") mais je ne trouve pas le bon code, je pense que le problème ce situe au niveau du code de création du TCD mais je n'ai pas trouvé! Quelqu'un pourrait il m'aider?

Ci-dessous le code (module 2) et le fichier.

Sub TcdBetonProprete()

ActiveWorkbook.Sheets("Détails Infra.").PivotTables("TcdInfra").TableRange2.Clear
ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:="TabImport", _
Version:=6).CreatePivotTable TableDestination:=Sheets("Détails Infra.").Range("B6"), TableName:="TcdInfra", DefaultVersion:=6

With Sheets("Détails Infra.").PivotTables("TcdInfra")
    .DisplayFieldCaptions = False
    .DisplayContextTooltips = False
    .ShowDrillIndicators = False
    With .PivotFields("Nom")
        .Orientation = xlPageField
        .Position = 1
        .PivotItems("0").Visible = False
        .PivotItems("Acrotère").Visible = False
        .PivotItems("Allège").Visible = False
        .PivotItems("Ancrage Be").Visible = False
        .PivotItems("Ancrage BN").Visible = False
        .PivotItems("Ancrage CH").Visible = False
        .PivotItems("Ancrage LG").Visible = False
        .PivotItems("Ancrage PV").Visible = False
        .PivotItems("Ancrage Re").Visible = False
        .PivotItems("Ancrage SF").Visible = False
        .PivotItems("Ancrage TPS").Visible = False
        .PivotItems("Ankromur").Visible = False
        .PivotItems("Attentes").Visible = False
        .PivotItems("Balcon").Visible = False
        .PivotItems("Balcon préfabriqué").Visible = False
        .PivotItems("Bande de clavetage").Visible = False
        .PivotItems("Bande noyée").Visible = False
        .PivotItems("Bêche").Visible = False
        .PivotItems("Bloc U").Visible = False
        .PivotItems("Boisseaux").Visible = False
        .PivotItems("Caniveau").Visible = False
        .PivotItems("CH").Visible = False
        .PivotItems("CH bloc U").Visible = False
        .PivotItems("Chevron").Visible = False
        .PivotItems("Contreventement").Visible = False
        .PivotItems("Corbeau").Visible = False
        .PivotItems("Corniche").Visible = False
        .PivotItems("Cornière").Visible = False
        .PivotItems("Couche de forme").Visible = False
        .PivotItems("CV").Visible = False
        .PivotItems("Dallage courant").Visible = False
        .PivotItems("Dallage industriel").Visible = False
        .PivotItems("Dalle alvéolée").Visible = False
        .PivotItems("Dalle coulée en place").Visible = False
        .PivotItems("Dalle de compression ").Visible = False
        .PivotItems("Dalle de transfert").Visible = False
        .PivotItems("Dé").Visible = False
        .PivotItems("Dé à encuvement").Visible = False
        .PivotItems("Déblais").Visible = False
        .PivotItems("Draînage").Visible = False
        .PivotItems("Enrobé").Visible = False
        .PivotItems("Escalier").Visible = False
        .PivotItems("FA").Visible = False
        .PivotItems("Goujon").Visible = False
        .PivotItems("Hourdis").Visible = False
        .PivotItems("Isolant sous dalle").Visible = False
        .PivotItems("Isolant Vertical").Visible = False
        .PivotItems("Joint sec").Visible = False
        .PivotItems("Joue de quai").Visible = False
        .PivotItems("Linteau").Visible = False
        .PivotItems("Linteau Bloc U").Visible = False
        .PivotItems("Longrine").Visible = False
        .PivotItems("Longrine redressement").Visible = False
        .PivotItems("Maçonnerie").Visible = False
        .PivotItems("Massif tête de pieu").Visible = False
        .PivotItems("Micro Pieu").Visible = False
        .PivotItems("Muret").Visible = False
        .PivotItems("Panne").Visible = False
        .PivotItems("Pieu").Visible = False
        .PivotItems("Planelle").Visible = False
        .PivotItems("Pli de dalle").Visible = False
        .PivotItems("Plot").Visible = False
        .PivotItems("Poteau").Visible = False
        .PivotItems("Poteau Mixte").Visible = False
        .PivotItems("Poutre").Visible = False
        .PivotItems("Poutre voile").Visible = False
        .PivotItems("Poutre voile infra").Visible = False
        .PivotItems("Précoffré isolant").Visible = False
        .PivotItems("Précoffré peau").Visible = False
        .PivotItems("Précoffré remplisolé").Visible = False
        .PivotItems("Précoffré remplissage").Visible = False
        .PivotItems("Prédalle").Visible = False
        .PivotItems("Prélinteau").Visible = False
        .PivotItems("Puits GB").Visible = False
        .PivotItems("Puits rattrapage GB").Visible = False
        .PivotItems("Puits semelle BA").Visible = False
        .PivotItems("Radier").Visible = False
        .PivotItems("Radier ascenseur").Visible = False
        .PivotItems("Radier fosse").Visible = False
        .PivotItems("Rampe").Visible = False
        .PivotItems("Rattrapage GB Rad").Visible = False
        .PivotItems("Relevé").Visible = False
        .PivotItems("Remblais").Visible = False
        .PivotItems("Semelle fil rattrapag").Visible = False
        .PivotItems("Semelle filante BA").Visible = False
        .PivotItems("Semelle filante GB").Visible = False
        .PivotItems("Semelle isolée BA").Visible = False
        .PivotItems("Semelle isolée GB").Visible = False
        .PivotItems("Semelle rattrapage GB").Visible = False
        .PivotItems("Semelle Soutènement").Visible = False
        .PivotItems("Seuil").Visible = False
        .PivotItems("Surpoutre").Visible = False
        .PivotItems("Terrain naturel").Visible = False
        .PivotItems("Tirant parasismique").Visible = False
        .PivotItems("Voile de soutènement").Visible = False
        .PivotItems("Voile drapeau").Visible = False
        .PivotItems("Voile exterieur").Visible = False
        .PivotItems("Voile fosse").Visible = False
        .PivotItems("Voile fosse ascenseur").Visible = False
        .PivotItems("Voile interieur").Visible = False
        .PivotItems("Voile interieur infra").Visible = False
        .PivotItems("Voile terre infra").Visible = False
        .PivotItems("(blank)").Visible = False
    End With

    With .PivotFields("Bâtiment")
        .Orientation = xlRowField
        .Position = 1
        .LayoutCompactRow = False
    End With
    With .PivotFields("Niv.")
        .Orientation = xlRowField
        .Position = 2
        .LayoutCompactRow = False
    End With
    With .PivotFields("Tri ht")
        .Orientation = xlRowField
        .Position = 3
        .LayoutCompactRow = False
        .LayoutForm = xlTabular
        .Subtotals _
        = Array(False, False, False, False, False, False, False, False, False, False, False, False _
        )
    End With
    With .PivotFields("ht (m)")
        .Orientation = xlRowField
        .Position = 4
        .LayoutCompactRow = False
    End With
    With .PivotFields("Repère assamblage")
        .Orientation = xlRowField
        .Position = 5
        .LayoutCompactRow = False
        .LayoutForm = xlTabular
        .Subtotals _
        = Array(False, False, False, False, False, False, False, False, False, False, False, False _
        )
    End With
    With .PivotFields("Classe de Matériaux")
        .Orientation = xlRowField
        .Position = 6
    End With

    .AddDataField Sheets("Détails Infra.").PivotTables("TcdInfra").PivotFields("Volume / m3"), "Somme Volume", xlSum
End With

End Sub