Public Sub Traduction()
Str = TraduitAdresse(document.URL)
document.URL = Str
End Sub

Function TraduitAdresse(Str)
N = 1
N = InStr(N, Str, "\")
If (Split(Split(str, "/")(2), ".")(0) = "www") Then
	Domaine = "en"
Else
	Domaine = "www"
End If
TraduitAdresse = "http://" + Domaine + ".zailes.org/" + Split(Str, "/")(3)
End Function