Efface les lignes sauf la X en J9

[Mimi]

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

 

[Paf]

Re : Efface les lignes sauf la X en J9

Bonjour,

Comment je peux faire pour supprimer toutes les lignes sauf celle en J9.

pour ne pas supprimer la ligne 9, une solution possible:

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

A+

 

[Mimi]

Re : Efface les lignes sauf la X en J9

Bonsoir Paf,
Merci pour le code sa marche très bien
Encore merci
Mimi