VBA, run time error '1004'

[Bertrand]

Bonjour,

Je souhaiterais créer un TCD à partir de ma feuille 2 (sheet2)
Voici mon code

Sub MakeDataBaseTable()

    Sheets(2).PivotTableWizard xlDatabase, Range('A1:E65000')

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:='Sheet2'). _
    CreatePivotTable TableDestination:='', TableName:='pivot'
    ActiveSheet.Name = 'Sheet2'
    With PivotTableSheet
        .PivotTables('PivotTable1').PivotFields('Row').Orientation = xlRowField
        .PivotTables('PivotTable1').PivotFields('Column').Orientation = xlColumnField
    End With


End Sub

Qui peut m'aider, je souhaiterais que les données
de la colonne E (sheet2) apparaissent comme data
à l'intersection de mon tableau croisé dynamique
Colonne B: en-tête de ligne
Colonne C : en-tête de colonne

Merci d'avance,

Bertrand