Option Explicit
Dim PLgTrv As Range, Temps As Date
Sub Démarrage()
Set PLgTrv = Feuil1.[K12:N51]
PLgTrv.Columns(1).FormulaR1C1 = "=RC48"
PLgTrv.Columns(2).FormulaR1C1 = "=IF(OR(ISBLANK(RC2),RC[-1]<>RC1),NOW(),RC2)"
PLgTrv.Columns(3).FormulaR1C1 = "=RC49"
PLgTrv.Columns(4).FormulaR1C1 = "=IF(OR(ISBLANK(RC4),RC[-1]<>RC3),NOW(),RC4)"
Feuil1.[B12:B51].NumberFormat = "dd/mm/yy hh:mm:ss"
Feuil1.[D12:D51].NumberFormat = "dd/mm/yy hh:mm:ss"
MàJHeures
End Sub
Sub MàJHeures()
Feuil1.[A12:D51].Value = PLgTrv.Value
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "MàJHeures", Schedule:=True
End Sub
Sub Arrêt()
Application.OnTime Temps, "MàJHeures", Schedule:=False
End Sub