'Si la colonne A contient des données
Private Sub Worksheet_Change(ByVal R As Range)
Dim x&
Application.EnableEvents = False
If Not Intersect(R, Columns("U:U")) Is Nothing And R.Count = 1 Then
x = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(2, "V"), Cells(x, "V")).FormulaLocal = "=SI(U2 <>"""";SI(T2>=U2;""OK"";""NON"");"""")"
With Range(Cells(2, "V"), Cells(x, "V"))
.Value = .Value
End With
End If
Application.EnableEvents = True
End Sub