Sub miseEnForme()
Dim myRange As Range
Dim cell As Range
Set myRange = ActiveSheet.Range("E9:E14")
For Each cell In myRange
If Not (IsEmpty(cell)) Then
cell.Replace what:=".", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
cell.Replace what:="UNT", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
cell.Replace what:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End If
Next cell
End Sub