Function Decode_URL(ByVal Url As String) As String Dim Iof As Integer = -1 Do Iof = Url.IndexOf("%", Iof + 1) If Iof = -1 Then Exit Do Else Dim Deci As Integer = Integer.Parse(Url.Substring(Iof + 1, 2), Globalization.NumberStyles.HexNumber) Url = Url.Substring(0, Iof) & Char.ConvertFromUtf32(Deci) & Url.Substring(Iof + 3) End If Loop Return Url 'Attention Wikipedia utilise le codage Utf-8 : 'Pour retourner la bonne chaîne il faut effectuer par la suite de la fonction précédente la convertion suivante : Dim NewChaine As String = System.Text.Encoding.Default.GetString(System.Text.Encoding.Convert(System.Text.Encoding.UTF8, System.Text.Encoding.Default, System.Text.Encoding.Default.GetBytes(AncienneChaineEnUtf8))) End Function