Option Explicit
Sub EffPar()
Dim Opt As String, i As Long
Worksheets("Feuil1").Activate
Opt = Application.InputBox("Entrez M ou S (autre entrée ou Annuler = M ET S)", "Catégorie à traiter", , , , , , 2)
Opt = IIf(Opt = "M", "MIDI", IIf(Opt = "S", "SOIR", "TOUS"))
If Opt = "TOUS" Then
Range(Cells(2, 6), Cells(Cells(Rows.Count, 6).End(xlUp).Row, 6)).Replace What:=" (*)", Replacement:=""
Else
For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row
If Cells(i, 3) = Opt Then Cells(i, 6).Replace What:=" (*)", Replacement:=""
Next i
End If
End Sub