Option Explicit
Private Sub Form_Load() 'UserForm_Initialize() pour VBA
Text1.Text = "Salut à tous !"
End Sub
Public Sub NoSpace(ByRef oTextBox As TextBox)
oTextBox.Text = Replace(oTextBox.Text, " ", vbNullString)
End Sub
Private Sub EXEMPLE()
NoSpace Text1
End Sub