Problème VBA IF boucle

Bonjour à tous,

petit soucis tout bête mais je trouve pas la solution

j'ai un tableau tout simple

----Col A-----

test

test

coucou

coucou

coucou

test

test

test

coucou

salut

bonjour

test

mon code est le suivant

Sheets("Import").Select
Range("a1").Select

fin = Range("a1").End(xlDown).Row + 1
On Error Resume Next

For i = 2 To fin
Range("p" & i).Select

If Range("P" & i).Value <> "test" And Range("P" & i).Value <> "coucou" Then Rows(i).Delete
next i 

mon problème est le suivant

si le code supprime une ligne il fait bien le rows(i).delete

par contre la ligne suprimer devient la ligne courante qui n'est pas tester donc quand plusieurs éléments qui se suivent doivent être supprimer il ne fait que la moitié du travial :p

si quelqu'un à une idée je suis preneur

un grand merci par avance

cdt

edouard002

Bonjour,

Ta boucle doit être déroulée de la dernière ligne à la première

For i =  fin to 2  step -1

Je vais tester mais un grand merci pour l'astuce

cdt

Edouard002