Sub supprimerPièces()
'récupère la dernière ligne de l'onglet
fin = Range("A" & Range("A:A").Rows.Count).End(xlUp).Row
'pour chaque ligne en partant de la FIN
For i = fin To 1 Step -1
'si la cellule en colonne A contient le mot Pièce
If Cells(i, "A") Like "*Pièce*" Or Cells(i, "E") Like "*Pièce*" Then
'on supprime la ligne entière
Rows(i).EntireRow.Delete
End If
Next i
End Sub