Remplacer la valeur d'une cellule

[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
Liste = "MA,MC,MH,MI,MJ,"
[COLOR=blue]For Each[/COLOR] c [COLOR=blue]In[/COLOR] Range("E2:E" & Range("E" & Application.Rows.Count).End(xlUp).Row)
    [COLOR=blue]If[/COLOR] InStr(Liste, c.Value & ",") <> 0 [COLOR=blue]Then[/COLOR] c.Value = "MD"
[COLOR=blue]Next[/COLOR] c
[COLOR=blue]End Sub[/COLOR]

Private Sub CommandButton1_Click()
With Sheets("Feuil1")
    For Each c In Range("E2:E" & .Range("E65000").End(xlUp).Row)
        Select Case c.Value
        Case "MA", "MC", "MH", "MI", "MJ"
            c.Value = "MD"
        End Select
    Next c
End With
End Sub