Bonjour tout le monde

Je travaille sur un TCD que j'ai créé à partir d'un fichier .TXT.
La liste PivotFields("Asset") définit les lignes de mon TCD. Ne voulant affichier qu'un seul PivotItem de cette liste, j'ai exécuté ce petit code :

Dim m_PTItem As PivotItem


With ActiveSheet.PivotTables("PivotTable2").PivotFields("[Improved Total BacktestResults].[Asset].[Asset]")
For Each m_PTItem In .PivotItems
If m_PTItem.Caption = Sheets("Ratio").Range("K" & 1).Value Then ' Sheets("Ratio").Range("K" & 1).Value : La valeur du PivotItem que je souhaite gardé
m_PTItem.Visible = True
Else
m_PTItem.Visible = False
End If
Next m_PTItem
End With

Problème : Excel renvoie une erreur : Run time Error 1004 - Application-defined or object-defined error.
Localisation de l'erreur : la ligne en gras.

Quelqu'un aurait une idée
Merci d'avance

PS : Ceci est mon premier post sur le forum