Private Function CleanSpaceChars(ByVal vsInput As String) As String
Dim i As Long
Dim nPos As Long
vsInput = Trim$(vsInput)
i = 1
Do
nPos = InStrB(i, vsInput, " ")
If nPos = 0 Then
CleanSpaceChars= CleanSpaceChars & MidB$(vsInput, i)
Exit Function
Else
CleanSpaceChars= CleanSpaceChars & MidB$(vsInput, i, nPos - i + 2)
i = nPos + 2
Do While MidB$(vsInput, i, 2) = " "
i = i + 2
Loop
End If
Loop
End Function
'
'
'--------------- Autre méthode by Jack
Private Function CleanSpaceChars(ByVal vsInput As String) As String
Do While Instr(1, vsInput, " ") <> 0 ' 2 espaces dans ces guillemets
vsInput = Replace(vsInput, " ", " ") ' 2 espaces dans ces guillemets, puis 1
Loop
CleanSpaceChars = vsInput
End Function