Comment faire un graphique dans lequel les séries font appel non pas aux références des cellules contenant les valeurs mais aux valeurs elle mêmes ?

Voici ma version finale d'un graphique en nuage de points reliés par des segments, non lié aux valeurs de X et Y et bien aligné. Tu sélectionnes la plage contenant les X et les Y et tu appelles la macro.

sub
 GrapheSansLien()
 Application.ScreenUpdating = False
 Set donne = Selection
 nom = ActiveSheet.Name
 Charts.Add
 With ActiveChart
 .ChartType =
 xlXYScatterLines
 .SetSourceData Source:=donne
 .Location Where:=xlLocationAsObject, Name:=nom
 End With
 With ActiveChart.SeriesCollection(1)
  .XValues
 = donne.Columns(1).Cells().Value
  .Values = donne.Columns(2).Cells().Value
 End With
 ActiveChart.HasLegend = False
 donne.Cells(1, 1).Select
 dernier =
 ActiveSheet.ChartObjects.Count
 With ActiveSheet.ChartObjects(dernier)
 .Top = ActiveCell.Offset(0, 2).Top
 .Left = ActiveCell.Offset(0, 2).Left
 End
 With
 end sub