Est-ce que tu as essayé ceci :
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:01:00"), "graph"
End Sub
Et à la fin de ta macro "graph" , là où tu as écrit Call heure2, de mettre à la place :
Application.OnTime Now + TimeValue("00:01:00"), "graph"