Public durée As Date
Sub Lance_Ontime_Temps()
Set the = Workbooks(ThisWorkbook.Name).Sheets(ActiveSheet.Name)
durée = the.Cells(1, 4).Text
the.Cells(1, 5) = Now
the.Cells(1, 6) = Now + durée
ThisWorkbook.Save
Application.OnTime Cells(1, 6), "Lance_Ontime_Temps"
End Sub