Efface les lignes sauf la X en J9

Bonjour à tous,
j'utilise ceci pour supprimer les lignes contenant en J une croix :

Sub SupLigne()
Dim I As Integer
For I = Range("J65536").End(xlUp).Row To 1 Step -1
If Cells(I, 10).Value = "X" Then Rows(I).EntireRow.Delete
Next I
Range("C9").Select
End Sub

Comment je peux faire pour supprimer toutes les lignes sauf celle en J9.
En B9 je rentre 1 par exemple et une ligne s'ajoute automatiquement.
D'avance je vous remercie
Mimi