ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
TableauEntier, Version:=7).CreatePivotTable TableDestination:= _
CibleTCD, TableName:="Tableau croisé dynamique2", _
DefaultVersion:=7
Sheets(TCDencours).Select
Cells(1, 1).Select