Problème création TCD vba

Bonjour,

Je me permets de vous solliciter car j'ai un problème avec la création d'un TCD.
Je suis parti de l'enregistreur de macro. J'ai adapté le code pour que la sélection soit dynamique mais...rien à faire...

Je commence à me tirer les cheveux ...

Voici mon code, si un compère aurait une idée de mon erreur...je suis preneur ...

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
 
 
Sub Macro3()
'
' Macro3 Macro
'
 
'
'Annule toutes les alertes Excel
   'Application.DisplayAlerts = False
   'Workbooks.Add
   'ActiveWorkbook.SaveAs Filename:="D:\Profile\JeJEAUNET.000\Desktop\Documents présents sur le bureau\Statistique_apprentissage\Traitements effectifs conventionnés\Sorties\UL\BASEULdate.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:=""
   'Windows("test.xml").Activate
   'Range("A1").CurrentRegion.Select
   'Selection.Copy
   'Windows("BASEULdate").Activate
   'Range("A1").Select
   'ActiveSheet.Paste
   'Application.CutCopyMode = False
   'Windows("test.xml").Activate
   'ActiveWorkbook.Close False
 
    Sheets(1).Name = "apprentis_placesconv"
    Sheets(2).Name = "apprentis_en_lycee"
    Sheets(3).Name = "taux remplissage"
 
    Range("A1").Select
    ActiveWorkbook.Names.Add "TABLE_TCD", Range("A1").CurrentRegion
    Selection.CurrentRegion.Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "TABLE_TCD", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="apprentis_en_lycee!R1C1", TableName:= _
        "TCD", DefaultVersion:=xlPivotTableVersion10
    Sheets("apprentis_en_lycee").Select
    Cells(1, 1).Select
 
 
End Sub

D'avance merci.

Bonne soirée.