Graphique avec plage discontinue et évolutive

Sub graph()
'
' graph Macro
'

'
    ActiveChart.SeriesCollection(1).ChartType = xlLineMarkers
    ActiveChart.ChartType = xlLineMarkers
    Range("J10").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveSheet.Shapes("Graphique 2").IncrementLeft 138.75
    ActiveSheet.Shapes("Graphique 2").IncrementTop 93
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=Feuil1!$B$3"
    ActiveChart.SeriesCollection(1).Values = _
        "=Feuil1!$D$3;Feuil1!$G$3;Feuil1!$J$3;Feuil1!$M$3"
End Sub

 Sub CreateChart()

    ' Select the cell in the upper-left corner of the chart.
    Range("b3").Select
    ' Select the current range of data. This line of code assumes that
    ' the current region of cells is contiguous - without empty rows
    ' or columns.
 Selection.CurrentRegion.Select

    ' Assign the address of the selected range of cells to a variable.
    myrange = Selection.Address

    ' Assign the name of the active sheet to a variable. This line is
    ' used in order to allow a chart to be created on a separate chart
    ' sheet.
 mysheetname = ActiveSheet.Name

    ' Add a chart to the active sheet.
    ActiveSheet.ChartObjects.Add(125.25, 60, 301.5, 155.25).Select

    ' To create a chart on a separate chart sheet, remark out the
    ' previous line, and substitute the next line for the one above.

    ' Charts.Add

    Application.CutCopyMode = False

    ' This line can best be written by recording a macro, and
    ' modifying the code generated by the Microsoft Excel Macro
    ' recorder.

    ActiveChart.ChartWizard _
       Source:=Sheets(mysheetname).Range(myrange), _
       Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
       CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
       Title:="", CategoryTitle:="", _
       ValueTitle:="", ExtraTitle:=""

 End Sub