Sub Supprimer()
Dim i As Integer
Application.Goto Sheets('feuil1').Range('A1')
For i = Range('a65536').End(xlUp).Row To 1 Step -1
If Left(Cells(i, 5), 1) = 'H' Or Left(Cells(i, 5), 1) = 'L' Or Left(Cells(i, 5), 1) = 'T' Or Cells(i, 5) = '' Then
Range('A' & i & ':L' & i).Delete Shift:=xlUp
End If
Next i
End Sub