'----- Déclaration des variables locales Dim Msg As String Dim Ind As Long '----- Initialisation des variables Msg = "/ljdflkjsdjgl/ /fdgdkjghkh/ /dfldsjglkj/ /fdkhhgkjd/" '----- Boucle de supression des espaces Ind = InStr(Msg, " ") Do While Ind <> 0 DoEvents Msg = Left$(Msg, Ind - 1) + Mid$(Msg, Ind + 1) Ind = InStr(Msg, " ") Loop MsgBox Msg