VBA: Affichage de données dans bulles d'un nuage de points

Bonjour,

j'ai besoin d'un coup de main.
Je suis novice en VBA et j'ai un petit problème avec mon code.

Mon code a pour but d'afficher les données de la plage "$B$2:$B$500" de ma feuille "RECAP" dans les bulles d'un nuage de points quand je clique sur le bouton "CommandButton2".
Celui-ci marche très bien cependant quand j'effectue un tri sur ma plage "$B$2:$B$500" il lui arrive d'afficher des données de cellules masquées dans les bulles de mon nuage de points malgré le .SpecialCells(xlCellTypeVisible) .

Voici le code en question:
Private Sub CommandButton2_Click()
' AFFICHER BULLES

On Error Resume Next

Dim Données As Range
Dim Noms As Range
Dim i

Set Données = Sheets("RECAP").Range("$A$2:$P$500").SpecialCells(xlCellTypeVisible)
Set Noms = Sheets("RECAP").Range(Sheets("$B$2:$B$500").SpecialCells(xlCellTypeVisible)
Sheets("Matrice").ChartObjects("Graphique").Activate

With ActiveChart.SeriesCollection(1)
.ApplyDataLabels Type:=xlDataLabelsShowLabel
For i = 1 To .Points.Count
With .Points(i)
.DataLabel.Text = Noms(i)
End With
Next i
End With

End Sub



Je n'arrive pas à comprendre d'où vient l'erreur.
Merci pour votre aide
Ted