Affichage noms dans les bulles d'un nuage de points

Bonjour,

Je suis novice en VBA et j'ai un petit problème avec mon code:

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

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) .

Je n'arrive pas à comprendre d'où vient l'erreur.

Merci pour votre aide

Ted

Personne n'a une petite idée?

Bonjour,

Personne ne peut m'aider?