Function FormPostCode(Datas As String) As String
Dim tmpPart As String, i As Long
'encodage mime x-www-form-urlencoded, différent de URLEncode !
'encode le caractère % en premier
tmpPart = Replace(Datas, "%", "%25", , , vbBinaryCompare)
For i = 1 To 255
Select Case i
Case 32, 37, 42, 45, 46, 48 To 57, 65 To 90, 95, 97 To 122
'caractères non converti en %XX
Case Else
tmpPart = Replace(tmpPart, Chr$(i), "%" & Right$("00" & Hex$(i), 2), , , vbBinaryCompare)
End Select
Next i
'converti l'espace en "+"
tmpPart = Replace(tmpPart, " ", "+", , , vbBinaryCompare)
FormPostCode = tmpPart
End Function