Voila Une solution trouvée sur un site américain qui fonctionne super
complétement différent de ce que je souhaitais mais je contrôle 'intervalle de temps et cela execute la macro
Public RunWhen As Double
Public Const cRunWhat = "my_Procedure"
Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, 10)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
schedule:=True
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, _
procedure:=cRunWhat, schedule:=False
End Sub
Sub my_Procedure()
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Call StartTimer
End Sub
Jaurais aimer trouver une solution avec Worksheet_Calculate ou Worksheet_Change si heure change