Ajout point sur graphique. VBA

[Sebou]

Bonjour, j'ai créé un graphique en vba

J'ai obtenu un code, en enregistrant une macro (Clic sur assistant graphique -> Selection du type de graphique (nuage de points) -> Selection de la plage de données (de "AB2" jusqu'à la fin de la colonne AB) -> design (pas d'axe des abscisses, pas de légendes, un titre..) -> insertion du graphique en tant qu'objet dans "Feuil1")

Le graph est créé, je stoppe la macro.

la voici :

    Charts.Add
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("AB2:AB139"), _
        PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasAxis(xlCategory, xlPrimary) = False
        .HasAxis(xlValue, xlPrimary) = True
    End With
    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
    ActiveChart.HasLegend = False

J'obtiens un graph avec plusieurs points bleus..

Je dois intégrer ce graph dans un user form
j'ai trouver un code sur internet

Set LeGraph = Worksheets("Feuil1").ChartObjects(1).Chart
NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
LeGraph.Export Filename:=NomImage, FilterName:="GIF"
UserForm1.Image1.Picture = LoadPicture(NomImage)
UserForm1.Show

Est-il bon ?

Mais mon principale besoin est que lorsque je cliquerai sur un des élements de la listbox de mon userform, le graphique s'actualise et que le point correspondant soit d'une autre couleur (que les points bleus).
Lorsque l'on crée un graph par séries, chaque point est différent. Alors est-ce qu'en rajoutant une serie correspondant à l'élément cliqué, un point diférent aparaitra..il se superposera o point déja présent initialement et sera dc visible.

C'est un peu long, désolé, jspr que je me suis assez bien expliqué =S..

Merci d'avance (la personne qui trouve sera sur la liste des 23 annoncée par Domenech ce soir )