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