Supprimer une ligne entière répondant un critère

[aba2s]

Bonjour la communauté,
Je cherche à supprimer des lignes suivant un critère.
Avec la propriété .color, j'ai ce que je veux mais en passant à la propriété delete, la macro ne me supprime pas tous les lignes.
Je veux supprimer tous les lignes de la feuil1(colonne A) dont la valeur ne se trouve pas dans la feuil2(colonne A)
Pourriez-vous m'aider svp?

Merci

Sub SupprimesLignes()

Set plage = Sheets("Feuil2").Range("A1:A6")

For i = 1 To Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

valeur = Sheets("Feuil1").Range("A" & i)
If Application.WorksheetFunction.CountIf(plage, valeur) = 0 Then

'Sheets("Feuil1").Range("A" & i).Interior.Color = vbGreen
Sheets("Feuil1").Range("A" & i).EntireRow.Delete

End If
Next
End Sub

 

[pierrejean]

Bonjour aba

pour supprimer des lignes il faut toujours commencer par le bas !!!

Sub SupprimesLignes()

Set plage = Sheets("Feuil2").Range("A1:A6")

For i = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1

valeur = Sheets("Feuil1").Range("A" & i)
If Application.WorksheetFunction.CountIf(plage, valeur) = 0 Then

'Sheets("Feuil1").Range("A" & i).Interior.Color = vbGreen
Sheets("Feuil1").Range("A" & i).EntireRow.Delete

End If
Next
End Sub

 

[aba2s]

Bonjour Pierre Jean, Merci pour ton aide. Leçon sue et retenue 🙂