Dim MaString As String
MaString = " toto "
' Retirer les espaces à droite
RTrim(MaString) ' Retournera " toto"
' Retirer les espaces à gauche
LTrim(MaString) ' Retournera "toto "
' Retirer les espaces à droite et à gauche
Trim(MaString) ' Retournera "toto"