Bon en fait j'ai réussi à trouver tout seul (Youpi !) et je vous joins le code final pour ceux que ça intéresse => Il permet de mettre à jour un TCD en éliminant les champs anciens que Excel a gardé en mémoire...Voilà enfin je crois savoir que ce bug fut corrigé sur la version XP mais ici je suis sur XL97.....
allez bonnjournée à vous et bon week end
*************************************************
Sub Appel()
Vince 100130400, 3, 5
End Sub
Sub Vince(y As String, i As Integer, j As Integer)
'
' Vince Macro
' Macro recorded 08/08/2003 by Vincent
'
Sheets("Cal1").Select
Cells(i, j).Select
ActiveCell.FormulaR1C1 = "N° Lots"
Sheets("Tab1").Select
ActiveSheet.PivotTables(y).PivotSelect "", xlDataAndLabel
ActiveSheet.PivotTables(y).RefreshTable
Sheets("Cal1").Select
Cells(i, j).Select
ActiveCell.FormulaR1C1 = "N° Lot"
Sheets("Tab1").Select
ActiveSheet.PivotTables(y).RefreshTable
ActiveSheet.PivotTables(y).AddFields RowFields:=Array("N° Lot", _
"Min", "Max")
Application.DisplayAlerts = False
With ActiveSheet.PivotTables(y).PivotFields("N° Lot")
.Subtotals = Array(False, False, False, False, False, False, False, False, False, _
False, False, False)
.PivotItems("#VALUE!").Visible = False
If Cells(i + 2, j) <> "" Then .PivotItems("").Visible = False
End With
End Sub