Sheets("Synthèse " + variable).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").Name = _
"TCD-" + variable
'Erreur à partir d'ici
Range("A1:B120").Select
ActiveSheet.PivotTables("TCD-" + variable).ChangePivotCache _
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"X:\1-Public\DEV\Gestion NC\[NC-Analyse-v1-beta.xlsm]" & variable & "!L1C1:L130C20", Version _
:=xlPivotTableVersion12)