Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
DoEvents
Loop
End Sub
Sub Clignote(Cel1 As Range)
On Error GoTo Fin
'clignote si Absent sans justif
Do While Cel1.Value = "Asbsent sans justif."
Cel1.Interior.ColorIndex = 3
Minuterie 300
Cel1.Interior.ColorIndex = 0
Minuterie 300
Loop
Fin:
Cel1.Interior.ColorIndex = 0
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Clignote Range("C7")
End Sub