Modif macro suppression ligne

Bonjour avec cette macro je peux supprimer toutes les lignes à partir de la ligne 10.

Sub RAZ()

Rows("10:" & Rows.Count).Delete

End Sub

Comment puis-je faire pour supprimer toutes les lignes à partir de la ligne 10 sauf si la cellule E10,E11,E12... est < ou = à 700?

Bonjour

Essaie ce code :

Sub RAZ()
    For ln = Range("A1").SpecialCells(xlCellTypeLastCell).Row To 10 Step -1
        If Range("E" & ln) = "" Or Range("E" & ln) > 700 Then
            Rows(ln & ":" & ln).Delete shift:=xlUp
        End If
    Next ln
End Sub

Bye !