Private Sub Workbook_Open()
' -----------------------------------
' Signalement sur délais de retour dépassé
' -----------------------------------
Dim cel As Range
For Each cel In Range("A7:A" & Range("A65535").End(xlUp).Row)
VarFont = 0: VarInt = 0: VarValue = "" 'Initialise les variables
If Date > Cells(cel.Row, 14).Value And Cells(cel.Row, 21).Value = "Attente retour" Then VarFont = 6: VarInt = 1: VarValue = "!" ' Alerte NOIRE
If Date >= Cells(cel.Row, 14).Value - 10 And Date <= Cells(cel.Row, 14).Value And Cells(cel.Row, 21).Value = "Attente retour" Then VarFont = 0: VarInt = 6: VarValue = "!" 'Alerte jaune
With Cells(cel.Row, 15)
.Font.Name = "Arial"
.Font.Size = 16
.HorizontalAlignment = xlCenter
.Font.ColorIndex = VarFont
.Interior.ColorIndex = VarInt
.Value = VarValue
End With
Next
End Sub