Creation d'un histogramme en macro

Bonjour,

j'ai crée (pompé sur un forum ) cette macro pour passer outre l'erreur 1004 :

Sub DBOVRAI()
'
' DBOVRAI Macro

Dim Derligne As Integer

Derligne = Cells(Rows.Count, "A").End(xlUp).Row

    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range(Rows(2), Rows(Derligne))

End Sub

Seulement je ne veux pas l'integralité de mon tableau, simplement les Colonnes A, I et E...

Que dois-je rajouter?

Cordialement,

CJ

Bonjour,

Un petit fichier par exemple!?

Cdlt.

Bonsoir,

Je ne peux pas à cause de la confidentialité des données :/

Cordialement,

Clément

up :/