Bonjour à tous! Joyeuses fêtes au passage aussi

J'ai un probleme de macro dans VBA Excel :
Sur ma Feuille 1 (appelée "Jour"), j'ai un tableau, avec 3 colonnes:
colonne 1 => Nombre de personnes
colonne 2 => Compagnie aérienne
Je souhaite créer une macro qui créee un tableau croisé dynamique avec tous les éléments de ma colonne 1 et de ma colonne 2 sur une ma Feuille2 (appelée "Tableau").
Jusqu'ici rien de compliqué, mais dès que je lance la macro, j'ai un bug au niveau du code que j'ai mis en commentaire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sheets("Tableau").Select
    Range("E2").Select
'    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
'    "Tableau1[[#Tout];[Colonne1]:[Colonne2]]", Version:=xlPivotTableVersion12). _
'    CreatePivotTable TableDestination:="Tableau!R2C5", TableName:= _
'    "Tableau croisé dynamique5", DefaultVersion:=xlPivotTableVersion12
    Sheets("Tableau").Select
    Cells(2, 5).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields( _
        "Colonne2")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique5").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique5").PivotFields("Colonne1"), _
        "Somme de Colonne1", xlSum
    ActiveWorkbook.ShowPivotTableFieldList = False
pouvez vous m'aider ?
Cordialement.