Re : simulation
J'ai essayé comme ca aussi
Dim Start, Finish, TotalTime As Integer
Sheets("Opé E").Select
Do While n < 120
Start = Timer ' Définit l'heure de début.
If ((Timer < (Start + r.Cells(n, 1))) And (Timer > (Start + r.Cells(n, 1) + r.Cells(n, 1))))...