Sheets("BD").Range("A1").Select
NB = Application.WorksheetFunction.CountA(Columns("A:A"))
Range(Selection, Cells(NB, 9)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"BD!R1C1:R1664C9").CreatePivotTable TableDestination:= _
"'[Optimisation_Exemple de tableaux de bord commerciaux.xls]TCD'!R1C1", _
TableName:="Tableau croisé dynamique", DefaultVersion:= _
xlPivotTableVersion10