Problème macro : Tracer un graphique/Nouvelle Feuille/Colonnes séparés

Hello la communauté !

Je travaille actuellement sur une macro qui doit sortir 9 graphiques, chaque graphe ayant la même abscisse mais deux colonnes différentes (et séparés) en ordonnée.

Voici la macro que je tente de faire pour un graphique (et que je compte répéter 9 fois):

Sub Macro8()
'
'
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "='IMPORT'!$B$1"
    ActiveChart.SeriesCollection(1).XValues = "='IMPORT'!$A:$A"
    ActiveChart.SeriesCollection(1).Values = "='IMPORT'!$B:$B"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "='IMPORT'!$L$1"
    ActiveChart.SeriesCollection(2).XValues = "='IMPORT'!$A:$A"
    ActiveChart.SeriesCollection(2).Values = "='IMPORT'!$L:$L"
    ActiveChart.SeriesCollection(2).Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="TREG_12V"
    ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Text = "Tension de régulation 12V"
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Temps (s)"
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Tension (V)"
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.PlotArea.Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select

End Sub

Pourtant Excel me renvoie une erreur "Erreur d’exécution : L'élément portant ce nom est introuvable" en surlignant cette ligne :

 ActiveSheet.ChartObjects("Graphique 1").Activate

Je crois comprendre que mon graphique n'existe pas - pas encore, mais justement, je veux qu'il soit créé J'ai édité cette macro avec l'enregistreur de macro (parce que je suis un novice).

Concrètement, je souhaite créer des graphiques ayant pour abscisse la colonne A jusqu'à ce qu'il n'y est plus de valeurs (ça peut changer), par exemple de A2:A1680 ou A2:1709 ou A2:2514 et pour les ordonnées les colonnes : B et L, C et M, etc... jusque J et T. Sachant que je réserve la première ligne pour les noms des colonnes.

Mon exemple ci-dessus était pour tracer les colonnes B et L en fonction de A.

Par ailleurs, je souhaite que ces graphiques soient sur 9 pages bien distinctes.

Voilà voilà, j'espère avoir été assez clair ! Toute aide est bienvenue

En PJ : mon fichier (pas complet - confidentialité oblige :'(- )

Merci d'avance !

Petit up