Salut à tous!

Je voudrais supprimer tous les espaces d'une chaine.

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub text_licence_ajouter_LostFocus()
While InStr(1, text_licence_ajouter.Text, "  ") <> 0
    text_licence_ajouter = Replace(text_licence_ajouter, "  ", "")
 
Wend
text_licence_ajouter.Text = Trim(text_licence_ajouter)
 
end sub
Ce code me permet de supprimer le premier espace mais pas les autres, pourquoi ?

Je vous remercie d'avance pour les solutions que vous pourrez me suggérer.