Macro sélection de données pour graphique

[norip]

Bonsoir,
je souhaite crée une macro qui me permettra de créer un graphique de type "courbe avec marques" en ayant sélectionner 2 plages de données. La première correspondra à axe horizontal et l'autre aux valeurs correspondantes.

J'ai enregistrer cette macro:
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Range("N5:N12")
ActiveChart.SeriesCollection(1).XValues = "='Feuil2'!$M$5:$M$12"
ActiveChart.Legend.Select
Selection.Delete

En gros je voudrais que:
ActiveChart.SetSourceData Source:=Range("N5:N12")
range("N5:N12") soit variable ainsi que
ActiveChart.SeriesCollection(1).XValues = "='Feuil2'!$M$5:$M$12"


J'ai également une autre question:

Je souhaite effacer toute les données ainsi que la mise en page de plusieurs lignes sachant que la première ligne et effacer sera variable.
En fonction du nombre de valeurs dans mon tableau je souhaite effacer les formules et la mise pour les dernières lignes et ainsi aaficher le graphique.

J'ai enregistrer ceci:

Rows("14:19").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Rows("14:19").Select
Selection.ClearContents

Il faudrai qu'une cellule affiche le nombre de valeur (à l'aide de nbval je pense)
et que la valeurs affiché soit réutiliser dans la macro précédente dans les lignes:

Rows("14:19").Select

merci d'avance de votre aide
Cordialement
Norip