Sub testIV()
Dim cell As Range
Dim derlig As Long
'identifie la dernière ligne de ta colonne E
derlig = Range("E65536").End(xlUp).Row
'désactive l'actualisation de l'écran
Application.ScreenUpdating = False
'dans toutes les cellules de la plage
For Each cell In Range("E2:E" & derlig)
'Left=gauche Len= Nombre de caractères --> NBCAR en formule
Select Case Left(cell.Value, Len(cell))
Case 11000 To 11999, 12000 To 12999, 13000 To 13999, _
15000 To 15999, 16000 To 16999, 17000 To 17999, 19000 To 19999, 20000 To 20999, 23000 To 23999, 26000 To 26999, _
30000 To 30999, 34000 To 34999, 38000 To 38999, 39000 To 39999, 40000 To 40999, 42000 To 42999, 43000 To 43999, _
46000 To 46999, 48000 To 48999, 63000 To 63999, 66000 To 66999, 69000 To 69999, 71000 To 71999, 74000 To 74999, _
81000 To 81999, 84000 To 84999, 87000 To 87999
cell.EntireRow.Delete
Case 1000 To 1999, 3000 To 7999, 9000 To 9999
cell.EntireRow.Delete
End Select
Next
End Sub