Option Explicit
Option Compare Text
Sub Jour_supprimer()
Dim c As Range, i As Long, jour As String
Application.ScreenUpdating = 0
On Error Resume Next
jour = InputBox("Saisir le jour de semaine à supprimer.")
If jour = "" Then Exit Sub
With Sheets("Pièces")
For i = .Cells(Rows.Count, "b").End(xlUp).Row To 1 Step -1
If Not .Range("b" & i) Like "*" & jour & "*" Then .Rows(i).Delete
Next
End With
Application.ScreenUpdating = -1
End Sub