Suppression de lignes

Sub SupprLigne()
'------------- A TOI DE VOIR -------------------
NomAsupprimer$ = "dupond"
NoDeCol = 1
NoPremLig = 1
NbrDeLigTotal = 22
'-----------------------------------------------

'-------- code suppression
NoDeLigEnCours = NoPremLig
Do While NoDeLigEnCours < NbrDeLigTotal
 If Cells(NoDeLigEnCours, NoDeCol) = NomAsupprimer$ Then
    Rows(NoDeLigEnCours).Delete: NbrDeLigTotal = NbrDeLigTotal - 1
 Else
    NoDeLigEnCours = NoDeLigEnCours + 1
 End If
Loop
End Sub

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim x As Long 'déclare la variable x
 
dl = Range("A65536").End(xlUp).Row 'définit la dernière ligne (colonne à adapter à ton cas)
 
For x = dl To 1 Step -1 'boucle de la dernière ligne à la première
    'si la cellule de la colonne A (à adapter) contient "ta_condition", supprime la ligne
    If Cells(x, 1).Value = "ta_condition" Then Rows(x).Delete
Next x 'prochaine ligne de la boucle
 
End Sub