ce controle est pour la mise a jour de heure system
macro majh dans module 4 ca ca marche
en revanche feuille activite
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Y21:AD39")) Is Nothing Then
Call graph
Else: Application.OnTime Now + TimeValue("00:01:00"), "graph"
End If
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime Now + TimeValue("00:01:00"), "graph", Schedule:=False
End Sub