Salut, voici une façon de supprimer des lignes en fonction de la valeur du cellule dans une colonne. (Si vous avez des améliorations je suis preneur".
Merci.
Sub ()
Worksheets("...").Select
Dim i
For i = 10000 To 2 Step -1
If Cells(i, 2).Value = "....." Then Rows(i).EntireRow.Delete
Next i
End Sub