J'ai créé un TCD avec en ligne les noms en colonne les mois et comme résultat le nombre d'heures. Lorsque que dans ma base je supprime toutes les lignes ayant le même NOM et que j'actualise le TCD, le NOM n'apparaît plus, mais par contre il reste toujours en mémoire dans la liste déroulante NOM du TCD.

Pour tenir compte des champs calculés ne pas oublier de rafraîchir le TCD avant de savoir s'il faut détruire.

sub DeleteOldItemsWB()
 'gets rid of unused items in PivotTable
 ' based on MSKB (202232)
 Dim ws As Worksheet
 Dim pt As PivotTable
 Dim pf As PivotField
 Dim pi As PivotItem
 Dim i As Integer
 
 On Error Resume Next
 For Each ws In ActiveWorkbook.Worksheets
  For Each pt In ws.PivotTables
    pt.RefreshTable
    For Each pf In pt.PivotFields
      For Each pi In pf.PivotItems
        If pi.RecordCount = 0 And _
          Not pi.IsCalculated Then
          pi.Delete
        End If
      Next
    Next
  Next
 Next
 end sub

et pour excel 2002 uniquement :

sub DeleteMissingItems2002()
 'prevents unused items in XL 2002 PivotTable
 Dim pt As PivotTable
 
 Set pt = ActiveSheet.PivotTables.Item(1)
 pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
 
 end sub

'=============================