Dim t, debut, fin, pas
Sub debutgraph()
'première valeur de theta
debut = 0
'dernière valeur de theta
fin = 100
'pas entre chaque valeur de theta
pas = 20
't variable qui determine le theta du graphique
t = debut
'modifie la valeur de theta toute les secondes
memtimer = Now + TimeValue("00:00:01")
Application.OnTime memtimer, "theta"
End Sub
Sub theta()
'je la relance une seconde après
memtimer = Now + TimeValue("00:00:01")
Application.OnTime memtimer, "theta"
'feuil1 : nom de la feuille où se trouve ta valeur
'A1 : nom de la cellule où se trouve ta valeur
Worksheets("feuil1").Range("A1").Value = t
'si arrivé à la fin, stoppe la macro
t = t + pas
If t > fin Then
Application.OnTime memtimer, "theta", Schedule:=False
'petit message pour dire que c'est bon.
MsgBox "fini"
End If
End Sub