Function EncodeURLBricolé(ByVal Texte As String) As String
Dim P As Long, C As String, A As Long
For P = 1 To Len(Texte)
C = Mid$(Texte, P, 1): A = AscW(C)
Select Case A
Case 32: C = "+" ' Worksheetfunction.EncodeURL renvoie "%20", mais bon, si "+" passe, c'est pas plus mal.
Case Is > 127: C = "\u" & Right$("000" & Hex$(A), 4) ' Worksheetfunction.EncodeURL renvoie une codification incompréhensible.
Case 0 To 44, 47, 58 To 64, 91 To 94, 96, 123 To 127: C = "%" & Right$("0" & Hex$(A), 2)
End Select
EncodeURLBricolé = EncodeURLBricolé & C: Next P
End Function