Option Explicit
Sub Ligne_supprimer()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
If Range("a" & i) = "T" And Range("a" & i).Offset(1, 4) = 0 Then Rows(i).Resize(3, 7).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub