Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Intersect(Target, Range("B5:E11")) Is Nothing Then Exit Sub
Target = Replace(Replace(Replace(Target, "e", "L"), "r", "J"), "t", "K")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cellule In Range(Cells(5, 2), Cells(11, 5)).Cells
If Cellule = "e" Then Cellule.Value = "L"
If Cellule = "r" Then Cellule.Value = "J"
If Cellule = "t" Then Cellule.Value = "K"
Next
End Sub