graphique avec des données sources variables

'ici ton code initial
For Each wks In ThisWorkbook.Worksheets
If wks.Name Like "Line ##" Then
dv = wks.[D65536].End(xlUp).Row
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=wks.Range("D6:D" & dv), _
PlotBy:=xlColumns
'ici suite de ton code initial

'ici ton code initial
For Each wks In ThisWorkbook.Worksheets
If wks.Name Like "Line ##" Then
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=wks.Range("d6:d" & Range(d & Rows.Count).End(xlUp).Row), _
PlotBy:=xlColumns
'ici suite de ton code initial

Sub cree_graph2()
Dim NbGraph As Byte
Dim wks As Worksheet
Dim Drang As String
Dim p As Range
For Each wks In ThisWorkbook.Worksheets
If wks.Name Like "Line ##" Then
Set p = wks.Range("D5:D70").SpecialCells(xlCellTypeConstants, 1)
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=p, _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=wks.Name
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Temps de Cycle"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = ""
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Takt"
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = False
.HasAxis(xlValue, xlPrimary) = True
End With
  NbGraph = ActiveSheet.ChartObjects.Count 'compte le nombre de graphiques dans la feuille
'le nouveau graphique correspond à l'index le plus élevé
 ActiveSheet.ChartObjects(NbGraph).Activate
    ActiveChart.ChartTitle.Select
    ActiveSheet.ChartObjects(NbGraph).Name = "Takt"
    With ActiveSheet.Shapes("Takt")
        .Left = Range("e15").Left
        .Top = Range("e15").Top
    End With
    wks.Range("A1").Select
End If
Set p = Nothing
Next wks
End Sub

Sub cree_graph3()
Dim NbGraph As Byte, wks As Worksheet, Drang$, p As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each wks In ThisWorkbook.Worksheets
    If wks.Name Like "Line ##" Then
    Set p = wks.Range("D5:D70").SpecialCells(2, 1)
    Charts.Add: ActiveChart.ChartType = 4
    ActiveChart.SetSourceData Source:=p, PlotBy:=2: ActiveChart.Location Where:=2, Name:=wks.Name
    With ActiveChart
    .HasTitle = -1
    .ChartTitle.Characters.Text = "Temps de Cycle"
    .Axes(1, 1).HasTitle = -1: .Axes(1, 1).AxisTitle.Characters.Text = ""
    .Axes(2, 1).HasTitle = -1: .Axes(2, 1).AxisTitle.Characters.Text = "Takt"
    End With
    With ActiveChart
    .HasAxis(1, 1) = 0: .HasAxis(2, 1) = -1
    End With
      NbGraph = ActiveSheet.ChartObjects.Count 'compte le nombre de graphiques dans la feuille
    'le nouveau graphique correspond à l'index le plus élevé
     ActiveSheet.ChartObjects(NbGraph).Activate
        ActiveChart.ChartTitle.Select
        ActiveSheet.ChartObjects(NbGraph).Name = "Takt"
        With ActiveSheet.Shapes("Takt")
            .Left = [e15].Left: .Top = [e15].Top
        End With
        wks.Range("A1").Select
    End If
Set p = Nothing
Next wks
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub