bon, avec l'enregistreur et un petitte modif, voilà un début:
Option Explicit
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 23/06/2005 par pat
'
'
Worksheets('feuil2').Select
Range('F9').Select
Selection.CurrentRegion.Select
Selection.Name = 'table'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'table').CreatePivotTable TableDestination:='', TableName:= _
'Tab1'
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables('Tab1').SmallGrid = False
ActiveSheet.PivotTables('Tab1').PivotFields('ID'). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables('Tab1').AddFields RowFields:= _
Array('NOM DU PRODUIT', 'ESSAI', 'ID'), ColumnFields:='ETAT'
ActiveSheet.PivotTables('Tab1').PivotFields('DUREE'). _
Orientation = xlDataField
End Sub
Patrick