tableau croisé par Macro

[MicDHL]

Bonjour à tous

j'essaie en vain de creer par Macro (ne suis que très novice) un outil automatique.

Avec ce que j'qi pu comprendre sur ce site fabuleux, j'aqi commencé à travailler tout seul mais je suis bloqué dans une macro (3 dans mon fichier d'essai) qui ne veut pas me recreer le tableau croisé que je souhaites car il change le nom du tableau ou de la feuille, çà je ne sais pas !

Quelqu'un pourrait t-il m'aider SVP à comprendre mieux tout se fonctionnement
Brièvement l'idée, c'est: on inscrit des données dans "Données" et à l'aide d'un copier coller Macro + formule cela complete mon besoin, maintenant reste la partie stat à finaliser

La Macro ressort comme cela (fichier ZIP de 500Ko)

Sheets("BDD2").Select
Columns("A:J").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"BDD2!C1:C10").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("DEP.")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("CTS"), "Nombre de CTS", _
xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("KGS"), "Nombre de KGS", _
xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("TARIF"), _
"Nombre de TARIF", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("Time Reel"), _
"Nombre de Time Reel", xlCount
Range("C4").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Nombre de CTS").Function = xlSum
Range("C5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Nombre de KGS").Function = xlSum
Range("C6").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Nombre de TARIF")
.Function = xlSum
.NumberFormat = "# ##0,00 €"
End With
Range("C7").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Nombre de Time Reel").Function = xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Somme de Time Reel").Function = xlAverage
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("Time Théo"), _
"Nombre de Time Théo", xlCount
Range("C8").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Nombre de Time Théo").Function = xlAverage
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotSelect "", _
xlDataAndLabel, True
ActiveSheet.PivotTables("Tableau croisé dynamique2").Format xlReport2
Range("E3").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").DataPivotField.PivotItems( _
"Moyenne de Time Reel").Caption = "Time Reel."
Range("F3").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").DataPivotField.PivotItems( _
"Moyenne de Time Théo").Caption = "Time Théo."
Columns("E:F").Select
Range("F1").Activate
Selection.ColumnWidth = 13.86
Range("E5").Select
Sheets("Feuil4").Select
Sheets("Feuil4").Name = "CLT"
Sheets("Données").Select
Range("I2").Select
Merci d'avance.