Bonjour,
cellA et cellB sont les noms donnés à tes deux cellules.
Dans un module Standard :
Sub ValeurB()
Dim t
[cellB] = [cellA]
t = Time
If t > 0.75 Then
Application.OnTime Date + 1.25, "ValeurB"
Else
Application.OnTime Date + 0.75, "ValeurB"
End If
End Sub
Dans le module ThisWorkbook :
Private Sub Workbook_Open()
Dim t
t = Time
If t > 0.75 Then
Application.OnTime Date + 1.25, "ValeurB"
ElseIf t > 0.25 Then
Application.OnTime Date + 0.75, "ValeurB"
Else
Application.OnTime Date + 0.25, "ValeurB"
End If
End Sub
Cordialement.