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