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

[ted75]

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