Salut Sasha,
merci pour ta patience! Mieux vaut tard que jamais, dit-on...
Normalement, si tout se passe chez toi comme ici, tu devrais pouvoir te passer de ta feuille 'source'.
Autant rester discret, hmmm ?
En effet, les heures et les T° se calculeront seules sans support de ce tableau!
Si mon projet te convient, tu peux la supprimer sans attendre : plus besoin!
Les dates également s'inscriront seules : tu peux effacer les formules!
Private Sub Workbook_Open()
'
Dim iRow%
'
With Sheets(Choose(Month(Now), "janvier", "fevrier", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "decembre"))
Randomize
iRow = Day(Date) + 2
If .Range("B" & iRow).Value = "" Then .Range("B" & iRow).Value = Date
If Time > TimeValue("08:30:00") And .Range("C" & iRow).Value = "" Then _
.Range("C" & iRow).Value = Format(TimeValue("08:" & Format(WorksheetFunction.RandBetween(32, 58), "00") & ":00"), "h:mm"): _
.Range("D" & iRow).Value = WorksheetFunction.RandBetween(1, 7)
If Time > TimeValue("18:00:00") And .Range("E" & iRow).Value = "" Then _
.Range("E" & iRow).Value = Format(TimeValue("18:" & Format(WorksheetFunction.RandBetween(2, 28), "00") & ":00"), "h:mm"): _
.Range("F" & iRow).Value = WorksheetFunction.RandBetween(1, 7)
If .Range("E" & iRow).Value = "" Then Application.OnTime EarliestTime:=Now + TimeValue("00:30:00"), procedure:="Clock", schedule:=True
End With
'
End Sub
A+