Sub SupprimerLignes()
Dim Sh As Worksheet
Dim plage As Range
Dim cpt As Long, i As Long
Set Sh = Sheets("Feuil1")
Set plage = Sh.UsedRange
cpt = plage.Rows.Count
For i = cpt To 1 Step -1
If Application.CountIf(plage.Rows(i), "prix d'achat") > 0 Then
r.Delete xlShiftUp
End If
Next i
End Sub