Macro graphique profil topographique

Bonjour,

Je suis vraiment pas très bon en macro, je viens vers vous pour de l'aide....
Voila mon problème:
J ai des profils en travers définit par X et Z, et où chaque profil est repérés par un n°.
Je voudrais créer des graphique automatiques car j'ai beaucoup de profils à traiter.
Il fardait sélectionner les valeurs X et Z suivant la valeur du n°de profil (1 à 650), et le nombre de valeur de X et Z est variable d'un profil à l'autre.
J'ai trouver une macro qui fait partiellement le travail dont voici le code. si quelqu un peut m 'aider a le modifier pour que les graphique s'affiche les uns à côté des autres, ce serait top!!
par avance merci :)
David

Sub graphique()

Dim graph As Variant

Application.ScreenUpdating = False
On Error Resume Next
NomFeuille = ActiveSheet.Name
Sheets(NomFeuille).Select

Range("B2").Select
Selection.End(xlToRight).Select
Selection.End(xlDown).Select
Position = ActiveCell.Address
nblg = ActiveCell.Row
nbcol = ActiveCell.Column

Set graph = Sheets(NomFeuille).ChartObjects.Add(100, 50, 300, 200)
graph.Chart.ChartType = xlXYScatterLinesNoMarkers

n = 1
While (n = 1)
n = 0
entree = InputBox("Le graphe est-il en ligne ou en colonne ? Répondre L ou C.")

If entree = "l" Then entree = "L"
If entree = "c" Then entree = "C"

If entree = "L" Then
On Error Resume Next
graph.Chart.SetSourceData Source:=Sheets(NomFeuille).Range("A1", Position), PlotBy:= _
xlRows
Else

If entree = "C" Then
On Error Resume Next
graph.Chart.SetSourceData Source:=Sheets(NomFeuille).Range("B2", Position), PlotBy:= _
xlColumns

Else
MsgBox "Répondre L ou C", vbExclamation
n = 1
End If
End If
Wend

graph.Chart.Location Where:=xlLocationAsObject, Name:=NomFeuille
graph.Chart.HasLegend = False
graph.Chart.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False

With graph.Chart.ChartArea.Border
.Weight = 1
.LineStyle = 0
End With

With graph.Chart.PlotArea
.Border.Weight = xlThin
.Border.LineStyle = xlNone
.Interior.ColorIndex = xlNone
End With

graph.Chart.Axes(xlCategory).TickLabels.NumberFormat = "0"

With graph.Chart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
.TickLabels.NumberFormat = "0"
End With

With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With

Range("B2").Select
Application.ScreenUpdating = True
End Sub