TCD excel 2003 qui plante régulièrement

Bonjour,

J'ai un classeur que j'utilise depuis 9 mois pour faire de la facturation.

J'utilise un TCD pour contrôler et calculer l'encours des clients lors d'un paiement "comptoir".

Mon code vba :
Private Sub PCLIENT_AfterUpdate()

Sheets("TCDPAIEMENT").Select
ActiveSheet.PivotTables("PAIEMENT").PivotCache.Refresh

ActiveSheet.PivotTables("PAIEMENT").PivotFields("CLIENT").CurrentPage = _
PCLIENT.Value


With Sheets("TCDPAIEMENT")

'ENCOURS.Value = Application.WorksheetFunction.SumIf(.Range("B:I"), PCLIENT.Value, .Range("I:I")) - Application.WorksheetFunction.SumIf(.Range("B:I"), PCLIENT.Value, .Range("P"))
ENCOURS.Value = Application.WorksheetFunction.Sum(.Range("C:C"))

End With

SELECTPFACT.Value = ""

DTPAIEMENT.Value = Now


End Sub

Régulièrement la mise à jour de Current_page par le code vba créer un éléments de page comme si il n'existait pas alors qu'il est présent dans la base de données.
Je suis obligé de supprimer mon TCD, de le recréer à la main (création initial manuel) et je relance mon code sur le même client, le même jour...et ça marche...

Auriez-vous une explication ?