Macro pour générer des graphiques

Sub Macro_graphique()
    Range("C1").Select
    'Selection.Cut Destination:=Range("A1")
    Selection.Cut
    'Range("A1").Select
    'ActiveSheet.Paste
    Range("C2").Select
    Selection.CurrentRegion.Select
    ActiveSheet.Shapes.AddChart.Select
    'ActiveChart.SetSourceData Source:=Range("'Feuil1'!$C$1:$E$1523")
    'ActiveChart.SetSourceData Source:=Selection
    'ActiveChart.ChartType = xlXYScatter
    ActiveChart.ChartType = xlXYScatterLinesNoMarkers
End Sub

Sub Macro1()
    
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "H2S & Température en fonction du temps"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Temps"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "H2S (ppm)"
    End With
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).AxisGroup = 2
    ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .ColorIndex = 3
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = 3
        .MarkerForegroundColorIndex = 3
        .MarkerStyle = xlSquare
        .Smooth = True
        .MarkerSize = 5
        .Shadow = False
    End With
    With ActiveChart
        .Axes(xlValue, xlSecondary).HasTitle = True
        .Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "Température (°C)"
    End With
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScale = 0
        .MaximumScaleIsAuto = True
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
    
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlCategory).Select
End With

End Sub