pb de compatibilité macro entre 2003 et 2007

[isabe]

--------------------------------------------------------------------------------

Bonjour,
j''ai une macro qui fonctionne tres bien dans excel 2003, mais pas du tout dans 2007.
Elle me permet de modifier les filtres de 2 TCD en une seule manip, et afin que le filtre soit le meme dans les 2 TCD.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet
Dim pt As PivotTable
Dim pi As PivotItem
Dim strField As String

strField = "commune2"

On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False

    If Target.Address = Range("D2").Address Then
        
        For Each ws In ThisWorkbook.Worksheets
            For Each pt In ws.PivotTables
                With pt.PageFields(strField)
                    For Each pi In .PivotItems
                        If pi.Value = Target.Value Then
                            .CurrentPage = Target.Value
                            Exit For
                        Else
                            .CurrentPage = "(All)"
                        End If
                    Next pi
                End With
            Next pt
        Next ws
    
    End If

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

pourriez-vous m'aider.
Merci d'avance.
Ingrid.