Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim i&
If Not Application.Intersect(Target, Range("T14:U21")) Is Nothing Then
'Et si tu veux contrôler de T14 à U57 tu remplaces la ligne du dessus par celle de dessous
'If Not Application.Intersect(Target, Range("T14:U57")) Is Nothing Then
For i = 14 To 21
If Not IsNumeric(Range("U" & i)) Then Range("D" & i) = ""
Next i
End If
End Sub