'Selectionner la plage
'Selection de la feuille
Sheets(prefixe & MachinesPlages(i, 1)).Select
'On calcule le nombre de colonne
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
larg = Selection.Count
'Le nombre de lignes dans la plage (pas vraiment utile pour l'instant
Range("A" & DebutPlage & ":A" & FinPlage).Select
longueur = Selection.Count
'Créer le TCD correspondant à la machine
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
ActiveWorkbook.Sheets(prefixe & MachinesPlages(i, 1)).Range(Cells(DebutPlage, 1), Cells(FinPlage, larg)), Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Options avec filtre!R1C1:R1C" & (i + 5), TableName:="TCD" & MachinesPlages(i, 1), _
DefaultVersion:=xlPivotTableVersion15