Ca marche! Un peu laborieux à codé en VB sous excel, mais ça permet de créer un import exploitable par Mondial Relay...
Je vous mets la partie du code spécifique au découpage du champ mondial relay ici, à toutes fins utiles :
Sub decompmr()
Dim Caractere As String 'le caractère recherché
For L = 2 To 250
LaPositionentree = 0
LaPositionavant = 0
I = 0
J = 0
K = 2
chaine = Cells(L, 16)
Caractere = """"
N = 21
Do
LaPositionentree = InStr(LaPositionentree + 1, chaine, Caractere)
If LaPositionentree = 0 Then Exit Do
I = I + 1
J = J + 1
If I = N Then
J = 1
LaPositionavant = LaPositionentree
End If
If I > N Then
resnom = Mid(chaine, LaPositionavant + 1, LaPositionentree - LaPositionavant - 1)
If J Mod 2 = 0 Then
If resnom = "postcode" Then resnom = Mid(chaine, LaPositionavant + 13, LaPositionentree - LaPositionavant - 4)
' MsgBox "" & resnom
Cells(L, K) = resnom
K = K + 1
End If
LaPositionavant = LaPositionentree
End If
Loop Until I = N + 30
Next
End Sub