Sub test()
Dim x As String
For n = 1 To Range("A65536").End(xlUp).Row
x = " " & Range("A" & n)
Range("B" & n) = Replace(x, " ST ", " Saint ")
Next n
For n = 1 To Range("B65536").End(xlUp).Row
Range("B" & n) = Replace(Range("B" & n), " STE ", " Sainte ")
Range("B" & n) = Trim(Range("B" & n))
Next n
End Sub