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