Faire un graph pour toutes les valeurs d'une cellule

Bonjour,

J'ai une première cellule A1 dans laquelle j'entre une valeur. Dans une seconde cellule A2 j'obtiens le résultat d'un calcul dépendant de A1.

Je voudrais faire une courbe qui montre toutes les valeurs de A2 lorsque l'on fait varier A1 entre deux bornes.

Comment faire?

Merci!

Fais tourner ce code, tu obtiendras en colonne b les A1 et en colonne c les A2

Sub toto()
bornebasse = 0
bornehaute = 1
variation = 0.01
k=1
application.screenupdating = false
For i = bornebasse to bornehaute step variation
Range("A1") = i
Range("B" & k) = i
Range("C" & k) = Range("A2")
k = k+1
next i
application.screenupdating = true
end sub

Engueengue toujours là pour regler mes problèmes. Thx!