Nettoyer des lignes sous Excel avec argument

J’avais besoin de supprimer toutes les lignes d’un tableau dont la cellule est égale à oui en colonne B.

Voici la macro correspondante :

Sub efface_vide()
Dim l As Long
For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Cells(l, "B").Value = "oui" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

Attention, toutes les lignes serons supprimé dès l’exécution.