Function Joindre_guillemets(x As String, sep As String) As String
Dim s, i%
s = Split(x, """")
If UBound(s) Mod 2 Then Exit Function
For i = 1 To UBound(s) Step 2
Joindre_guillemets = Joindre_guillemets & sep & s(i)
Next
Joindre_guillemets = Mid(Joindre_guillemets, Len(sep) + 1)
End Function