SERIE GRAPHIQUE

Bonjour a tous

J'ai une macro qui permet de créer des series graphiques de deux types I,J

Le problème est que les series I efface automatiquement les series J

Avez vous une solution car je cherche mais je ne trouve pas

Ci-dessous la macro

Sub Macro50()

Application.DisplayAlerts = False

Dim Lignes As Integer, I As Integer, J As Integer

Lignes = 0

I = 2
J = 3

For Lignes = 30 To 37

'Macro I----------------------------------
'Macro J----------------------------------

End With

I = I + 1
J = J + 1

Next

Application.DisplayAlerts = True

End Sub

Merci bcp

Boubou