Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim S As Worksheet
Dim R As Range
Dim C As Range
Dim C2 As Range
Dim var
Dim I&
Dim CeJour As Date
'---
Application.EnableEvents = False
Application.ScreenUpdating = False
CeJour = Now
Set S = ActiveSheet
Set R = S.Range(S.Cells(2, 5), S.Cells(S.[e66536].End(xlUp).Row, 5))
For Each C In R
Set C2 = C.Offset(0, 1)
'/// modif pmo
If C2 = "ALERTE" Then C2 = Empty
If IsDate(C) And IsEmpty(C2) Then
If C + 31 <= Now Then
C2.Interior.Color = vbRed
C2 = "ALERTE"
'### Pour la joliesse (sinon inutile) ###
With C2
.HorizontalAlignment = xlCenter
With .Font
.Color = vbBlue
.Bold = True
'etc ...
End With
End With
'########################################
Else
C2.Interior.Color = 52479
End If
End If
'///
Next C
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub