For i = 2 To UBound(V)
With .Cells(i).Interior
If IsDate(V(i, 1)) Then
Select Case V(i, 1)
Case Is > D + 10: V(i, 2) = "J" : .Color = vbGreen
Case Is > D + 3: V(i, 2) = "K" : .Color = 49407
Case Is >= D: V(i, 2) = "L" : .Color = vbRed
Case Is < D: V(i, 2) = "x" : .Color = vbRed
End Select
Else
Select Case V(i, 1)
Case "SANS LIMITE VAL": V(i, 2) = "n" : .Color = &HE0E0E0
Case Else: V(i, 2) = ""
End Select
End If
End With
Debug.Print i
Next