Sub Suppression()
Dim R As Variant
Dim L As Long, Lmax As Long
With ActiveSheet
R = Application.InputBox('Critère (4 caractères) :', 'Suppression des lignes commençant par ...', , , , , , 2)
If R = False Or Len(R) < > 4 Then Exit Sub
Lmax = .Range('A65536').End(xlUp).Row
For L = Lmax To 1 Step -1
If CStr(.Cells(L, 1).Value) Like R & '*' Then .Rows(L).EntireRow.Delete
Next
End With
End Sub