Sub Macro3()
' brut de décoffrage via l'enregistreur
Range("A2").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R40C1", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil1!R1C8", TableName:="Tableau croisé dynamique2", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil1").Select
Cells(1, 8).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Mes Objets")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("Mes Objets"), _
"Nombre de Mes Objets", xlCount
Range("I2").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Mes Objets"). _
AutoSort xlDescending, "Nombre de Mes Objets", ActiveSheet.PivotTables( _
"Tableau croisé dynamique2").PivotColumnAxis.PivotLines(1), 1
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Mes Objets"). _
PivotFilters.Add Type:=xlTopCount, DataField:=ActiveSheet.PivotTables( _
"Tableau croisé dynamique2").PivotFields("Nombre de Mes Objets"), Value1:=5
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Mes Objets")
.Orientation = xlRowField
.Position = 1
End With
Range("H7").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").ColumnGrand = False
Range("A1").Select
End Sub