Sub Test()
Dim c As Range, etiq As Range, zoneValeurX As Range, zoneValeurY As Range, graph As Chart, zoneGraph As Range, titi As Worksheet, serieG As Series, iPt As Long
On Error Resume Next
Set c = Application.InputBox(prompt:="selectionner la plage de cellule ", Title:=" Plage de cellules à sélectioner", Type:=8)
'vérifier que la zone sélectionnée contient bien 3 colonnes et les séparer
If Err.Number <> 0 Then Exit Sub
If c.Columns.Count <> 3 Then Exit Sub
Set etiq = Application.Intersect(c, c(1, 1).EntireColumn)
Set zoneValeurX = Application.Intersect(c, c(1, 2).EntireColumn)
Set zoneValeurY = Application.Intersect(c, c(1, 3).EntireColumn)
On Error GoTo 0
'définir la zone du graphique
Set zoneGraph = ThisWorkbook.Sheets("Sheet1").Range("C2:G15")
'créer le graphique "XYScatter"
With zoneGraph
Set graph = .Parent.ChartObjects.Add(.Left, .Top, .Width, .Height).Chart
End With
graph.ChartType = xlXYScatter
'ajouter la série et ses valeurs
Set serieG = graph.SeriesCollection.NewSeries()
serieG.Name = "blablabla !"
serieG.XValues = zoneValeurX.Value
serieG.Values = zoneValeurY.Value
'ajouter les étiquettes
For iPt = 1 To zoneValeurX.Cells.Count
serieG.Points(iPt).HasDataLabel = True
serieG.Points(iPt).DataLabel.Text = etiq(iPt).Text
Next iPt
End Sub