Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 4 Then Exit Sub
If .Row = 1 Then Exit Sub
If .Value <> "rae" Then Exit Sub
Dim T, nlt$, n&, i&: nlt = .Offset(, -3)
n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
T = [A1].Resize(n, 5): Application.ScreenUpdating = 0
Application.EnableEvents = 0
.Value = "Restriction appels entrants"
Application.EnableEvents = -1
For i = 2 To n
If T(i, 1) = nlt Then T(i, 5) = "SUSPENDUE"
Next i
[E1].Resize(n) = Application.Index(T, _
Evaluate("Row(" & "1:" & n & ")"), 5)
End With
End Sub