Renommer TCD à la date+onglet de couleur généré par macro

Bonjour,

J'ai créer une macro qui me génère un TCD et je souhaiterais que cette macro renomme la feuille du TCD à la date du jour en format ddmmyy (ex : 120914) et que cette feuille soit de couleur rouge. A l'heure actuelle, ma macro plante car elle génère une feuille pour le TCD renommé feuil16 tous les jours.
Je ne peux pas joindre le fichier car il fait encore 8mo une fois compressé

Merci



Sub TCD_auto()
'
' TDC_auto Macro
'

'
Range("H2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-7],13)"
Range("H3").Select
Columns("H:H").EntireColumn.AutoFit
Range("H1").Select
ActiveCell.FormulaR1C1 = "'DATES"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H39962")
Range("H2:H39962").Select
Range("I2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],2)"
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I39962")
Range("I2:I39962").Select
Range("I1").Select
ActiveCell.FormulaR1C1 = "'CRENEAUX"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-6],7)"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J39962")
Range("J2:J39962").Select
Range("J1").Select
ActiveCell.FormulaR1C1 = "'USERS"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-7],6)"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K39962")
Range("K2:K39962").Select
Range("K1").Select
ActiveCell.FormulaR1C1 = "'POSTES"
Range("A1:K39962").Select
Range("K2").Activate
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"0309!R1C1:R39962C11", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Feuil3!R3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10
Sheets("Feuil3").Select
Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Temps"), "Somme de Temps" _
, xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("USERS")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"CRENEAUX")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("POSTES")
.Orientation = xlColumnField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("POSTES")
.Orientation = xlColumnField
.Position = 1
End With
Range("A2").Select
End Sub

Merci pour votre aide