Bonjour a tous

Je me prend la tete depuis 2 jours a creer une TCD a partir de données d'une feuille Excel en VBA mais je n y arrive pas!!!
Voila mon code:
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
18
19
20
21
22
23
24
25
26
27
 
Sub TCD()
Sheets("Sheet2").Activate
Dim pivot As String
Dim counter As Double
counter = Cells(2, 1).End(xlDown).Row
 pivot = "Sheet2!R1C1:R" & counter & "C2"
'avec counter=nombre de lignes
 
'création du tableau croisé dynamique
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=pivot). _
    CreatePivotTable TableDestination:=range("AA2"), TableName:="ALtis"
    ActiveSheet.Name = "Pivot toutAlti"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("Altis").SmallGrid = False
    With ActiveSheet.PivotTables("Altis").PivotFields("Nom")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Altis").PivotFields("Encours")
        .Orientation = xlDataField
        .Position = 1
    End With
 
 
End Sub
Ca bloque au niveau de ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=pivot). _
Ca me fair erreur 1004. Je ne comprends pas pourquoi???

Quelqu'un peut m'aider svp

Merci d'avance