Erreur 1004 VBA Excel 2010

Hello la communauté,

Mon problème : J'ai deux colonnes (A et B) dans laquelle chaque ligne représente les coordonnées d'un point. Je souhaite modéliser un graphique pour représenter l'ensemble des points à l'aide de la fonction AddChart. Lorsque j'enregistre une macro pour tracer le graphique et le déplacer dans une nouvelle fenêtre j'obtiens le code suivant:

    Range("A:A,B:B").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Range("Coord!$A:$A;Coord!$B:$B")
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Profil"

Lorsque j'exécute ma macro directement depuis la feuille, cette fois ci la macro me retourne un message d'erreur :

Erreur d'exécution '1004'

Erreur définir par l'application ou par l'objet.

En parallèle la ligne 2 du code est surlignée :

ActiveSheet.Shapes.AddChart.Select

Note :

Sur Excel 2016 avec AddChart2 je n'ai aucun, problème.

Des idées de l'origine du problème et / ou d'une solution pour y remédier?

En vous remerciant...

Bonjour,

Un exemple à adapater.

Cdlt.

Public Sub Create_Chart()
Dim objChart As ChartObject, lastRow As Long, rngChart As Range
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
    On Error Resume Next
    Sheets("Profil").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rngChart = .Cells(1).Resize(lastRow, 2)
        Set objChart = .ChartObjects.Add(50, 50, 200, 300)
        With objChart.Chart
            .ChartType = xlXYScatterSmooth
            .SetSourceData Source:=rngChart
            .Location Where:=xlLocationAsNewSheet, Name:="Profil"
        End With
    End With
End Sub

Merci pour ta réponse Jean-Eric! Malheureusement je fais une nouvelle fois face une erreur (En PJ de ce message) me rapportant un problème avec la méthode Add au niveau de la ligne suivante :

Set objChart = .ChartObjects.Add(50, 50, 200, 300)

Encore une fois, ton programme tourne à merveille sur ma version d'Excel 2016 mais pas sur la version 2010 que je possède...