Sub Copie_MAJ_TCD()
Dim kingfadhel As Worksheet
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
Set kingfadhel = ActiveSheet
kingfadhel.Name = Sheets.Count
ActiveSheet.PivotTables("Tableau croisé dynamique1").ChangePivotCache _
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Sheets.Count & "!R3C1:R380C14" _
, Version:=6)
End Sub