Private Sub Workbook_Open()
With Feuil1
Application.ScreenUpdating = False
.[H4:H1000].Clear
For L = 4 To .[F65500].End(xlUp).Row
If .Cells(L, "F") <> "" And .Cells(L, "G") <> "" Then
.Cells(L, "H") = "Ok"
ElseIf .Cells(L, "F") < Date And .Cells(L, "G") = "" Then
.Cells(L, "H") = "Relance"
.Cells(L, "H").Font.Color = vbRed
.Cells(L, "H").Font.Bold = True
ElseIf .Cells(L, "F") > Date And .Cells(L, "G") = "" Then
' Calcul du temps avant relance, à supprimer si non necessaire.
.Cells(L, "H") = "Relance dans " & .Cells(L, "F") - Date & " jours."
.Cells(L, "H").Font.Italic = True
End If
Next L
End With
End Sub