[VBA]MaJ TCD (encore)

[tik]

Bonjour, je n'arrive toujours pas à mettre à jour mes tcd en fonction d'une liste déroulante...

Private Sub Worksheet_Change(ByVal Target As Range)

Dim liste_tablo As Variant
Dim dd As String

liste_tablo = Array("Stats_effectif_S2_2011", "Stats_effectif_S1_2012", "Stats_salaire_S2_2011", "Stats_salaire_S1_2012")
ReDim Preserve liste_tablo(1 To 4)

If Target.Address = "$H$2" Then
    dd = Target.Value
    For i = 1 To 4
    ActiveSheet.PivotTables(liste_tablo(i)).PivotFields("DD").CurrentPage = dd
    Next i
End If


End Sub