tableaux croisés synchronisés et vba

bonjour à tous,

je suis ds les TCD et je voudrais pouvoir faire une sélection (en page) sur un premier TCD et que le 2°, issu de la même base et construit de la même manière, affiche des résultats correspondant à la même sélection.

j'ai pris sur le forum une solution pour synchroniser les 2 tcd et je l'ai adapté à mon cas
mais pb: j'ai un message " erreur de compilation; nom ambigu détecté "Worksheet_PivotTableUpdate"

je vous mets mon code ; est-ce que quelqu'un voit l'erreur ??
merci de votre aide très très attendue



Dim bon As Boolean
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim tcd As PivotTable
Dim tcd2 As PivotTable
Dim drg As String
Dim datefin As String

If bon = True Then
bon = False
Exit Sub

Else

Set tcd = ActiveSheet.PivotTables(Target.Name)

drg = tcd.PivotFields("DRG").CurrentPage
datefin = tcd.PivotFields("DATE FIN D'ACTIVITE").CurrentPage

Select Case Target.Name
Case "tableau croisé dynamique 1"
Set tcd2 = ActiveSheet.PivotTables("tableau croisé dynamique 2")
Case Else
Set tcd2 = ActiveSheet.PivotTables("Tableau croisé dynamique 1")
End Select
bon = True
tcd2.PivotFields("DRG ").CurrentPage = drg
bon = True
tcd2.PivotFields("DATE FIN D'ACTIVITE ").CurrentPage = datefin
End If


End Sub