separation variables de graphiques

Salut à tous
Tout d'abord un grand merci à tous les contributeurs de ce forum, qui m'ont été d'une aide précieuse lors de la réalisation de mes macros. Je m'y suis collé en état de débutant total, et ça commence à rentrer :D

Mais là je coince un peu. J'ai fait une macro qui me sort des graphiques en fonction d'une colonne date et d'un paramètre. Il peut y avoir une multitude de paramètres donc comptage des colonnes et boucles.
En fait j'ai bien le bon nombre de graphiques, le premier est bon, mais le second affiche le premier graphe également, le troisième affiche le second...

voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Sub graf() ' ' graf Macro ' Dim nbparam As Integer Dim nbgraph As Integer Dim i As Integer Dim haut As Integer Dim haut2 As Integer     ' désactiver le rafraîchissement de l'écran pour accélérer le traitement Application.ScreenUpdating = False   'compter paramètres nbparam = Sheets("Feuil2").UsedRange.Columns.Count   'boucle de traitement haut = 2 For i = 1 To nbparam - 1 'car premiere colonne =date Sheets("Feuil2").Activate Range(Columns(1), Columns(i + 1)).Select ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Range(Columns(1), Columns(i + 1)) ActiveChart.ChartType = xlLine 'positionnement des graphes With ActiveChart ActiveSheet.ChartObjects(i).Left = Range("I2").Left ActiveSheet.ChartObjects(i).Top = Range("I" & haut).Top ActiveSheet.ChartObjects(i).Width = 640 ActiveSheet.ChartObjects(i).Height = 270 End With haut = haut + 20 Sheets("Feuil2").Select Next i End Sub

---

Premier graphe: OK
http://img263.imageshack.us/img263/5...2049ll2.th.jpg

2nd graphe : ça coince
http://img209.imageshack.us/img209/3...8578kj1.th.jpg

Et le dernier, c'est carrément illisible
http://img209.imageshack.us/img209/7...7984ol7.th.jpg

les quelques valeurs aberrantes qui apparaissent sont simplement dues à un disfonctionnement des capteurs ;)

Ma question est toute simple : Comment faire en sorte que mes graphes ne soient en fonction d'un et d'un seul paramètre ? (airtemp, pressure, ou autre...)

Merci d'avance 8-)

cherchez pas, nbgraph n'est pas utilisé ici :D