Private Sub Workbook_Open()
Dim Plage As Range
Dim Cel As Range
'plage en colonne N
With Worksheets("Base de données")
Set Plage = .Range(.Cells(7, 14), .Cells(.Rows.Count, 14).End(xlUp))
End With
'parcour la plage
For Each Cel In Plage
'si la cellule de la colonne V n'est pas vide,
'que la date de la cellule en cours est inférieure de 10 jours
'alors, inscrit "Trop tard" en colonne O
If Cel.Offset(0, 8) <> "" And Cel.Value <= (Date - 10) Then
Cel.Offset(0, 1).Value = "Trop tard"
End If
Next Cel
End Sub