Graphique dynamique

Bonjour,

Je crée un graphique dynamique avec une macro et je veux donner un nom à mes données mais lorsque je mets une variable dedans il ouvre le debuggeur :

        With ActiveSheet.PivotTables("Tableau croise dynamique").PivotFields( _
            "List_pn1.Value")
            .Caption = List_pn1.Value
            .Function = xlMin
        End With
        With ActiveSheet.PivotTables("Tableau croise dynamique").PivotFields( _
            "List_pn2.Value")
            .Caption = "Number2"
            .Function = xlMin

le premier ne marche pas tandis que le deuxieme oui...

Quelqu'un aurait une idée ?