Tableau croisé dynamique

Bonsoir le forum,

Je cherche un petit coup de pouce sur une macro en lien avec un tableau
croisé dynamique.

Ci joint le fichier et ma macro et ma demande:
je souhaiterai remplacer ("louis") par Cible4 ceci afin de me permettre d'activer ou retirer ce nom dans le TCD en fonction de la valeur
de la cellule A9

Merci d'avance pour votre aide et bonne soirée.


Sub tcd()
'
' tcd Macro
' Macro enregistrée le 15/06/2004 par users
'
Cible1 = Range("b3") 'ListBox1.Value
Cible2 = Range("e2")
Cible3 = Range("e3")
Cible4 = Range("a9")



ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Unité"). _
CurrentPage = Cible1


With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nom et prénom")
If Range("a8") = 1 Then
.PivotItems("louis").Visible = False
End If
If Range("a8") = "" Then
.PivotItems("louis").Visible = True
End If

End With
Range("c6").Select



End Sub