Prenom miniscule, Nom Majuscule !

Private Sub TextBox1_AfterUpdate()
  Dim Pos As Integer, VTb As String, VNom As String, VPrenom As String
  ' Vérification éventuelle
  VTb = Me.TextBox1.Value
  Pos = InStr(1, VTb, " ")  ' Trouver l'espace dans le nom prénom
  If Pos = 0 Then
    MsgBox "Merci de saisir le Nom 'espace' le Prénom"
    Me.TextBox1.SetFocus
    Exit Sub
  End If
  ' Mettre en forme le Prénom et le NOM
  VPrenom = Left(VTb, Pos - 1)
  VPrenom = UCase(Left(VPrenom, 1)) & Mid(VPrenom, 2, Len(VPrenom) - 1)
  VNom = UCase(Mid(VTb, Pos + 1, 255))
  ' L'inscrire dans le texte box
  Me.TextBox1.Value = VPrenom & " " & VNom
End Sub

sub test()
dim chaine, prenom$, nom$
chaine =Split(Me.TextBox1,Chr(32))
prenom=Application.Proper(chaine(0))
nom=Ucase(chaine(1))
TextBox1=Ucase(Left(prenom,1)) & "." & nom
end sub

Private Sub CommandButton1_Click()
dim chaine, prenom$, nom$
chaine =Split(Me.TextBox1,Chr(32))
prenom=Application.Proper(chaine(0))
nom=Ucase(chaine(1))
TextBox1=Ucase(Left(prenom,1)) & "." & nom
end sub