Macros sur TCD

Sub fichier_par_nom()
Application.ScreenUpdating = False
LeDir = ThisWorkbook.Path & "\"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Délégué d'Opération")
    For Each PvI In .PivotItems
        .CurrentPage = "" & PvI & ""
        Sheets("TCD").Copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs LeDir & PvI & ".xls"
        ActiveWorkbook.Close
    Next PvI
    .CurrentPage = "(Tous)"
End With
End Sub

Sub Copy_TCD_Feuilles()
' Macro enregistrée le 19/09/2008 par MJ
'Stop
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(Cells(1, 1).Value)
    nfiltreext = .PivotItems.Count
    For ifiltreextcommune = 1 To nfiltreext ' - 1
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(Cells(1, 1).Value). _
        CurrentPage = .PivotItems(ifiltreextcommune).Value
        ajoute_copy_feuille
    Next ifiltreextcommune
        End With
Cells(1, 1).Select
End Sub
Sub ajoute_copy_feuille()
' Macro enregistrée le 19/09/2008 par MJ
    Cells.Select
    Range("B2").Activate
    Selection.Copy
    Sheets.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets(ActiveSheet.Name).Name = Cells(1, 2).Value
    Range("A1").Select
    ActiveSheet.Next.Select
    Application.CutCopyMode = False
End Sub