ERREUR 1004 - sur macro pour TCD

[Akortys]

Bonjour,

J'ai un souci quand je déclenche ma macro en ayant une erreur 1004:

sNomTCD = "Tableau croisé dynamique1"

ActiveSheet.PivotTables(sNomTCD).PivotCache.Refresh

Set Pvt = Worksheets("TCD-CONSTAT").PivotTables(sNomTCD)

Set Pvt = Worksheets("TCDTEST").PivotTables(sNomTCD)

'Récupérer la première valeur du TCD
sValTCDPrem = "'" & Range("A5").Value & "'"


iValTCDDern = Pvt.TableRange2.Rows.Count - 1
sValTCDDern = Range("A" + CStr(iValTCDDern)).Value
If sValTCDDern = "(vide)" Then sValTCDDern = "(blank)"
sValTCDDern = "'" & sValTCDDern & "'"

'Décolorier toutes les lignes du TCD
sRangeTCD = sValTCDPrem & ":" & sValTCDDern
ActiveSheet.PivotTables(sNomTCD).PivotSelect _
    sRangeTCD _
    , xlDataAndLabel + xlFirstRow, True

Erreur 1004 : Un nom d'élément est introuvable. Vérifiez que vous n'avez pas fait de faute ....'

Cela plante sur les lignes :

ActiveSheet.PivotTables(sNomTCD).PivotSelect _
    sRangeTCD _
    , xlDataAndLabel + xlFirstRow, True

Si qlqu'un pouvait m'aider.

En vous remerciant par avance.

Cordialement