Joyeux Noel a tous

Bonjour et bonne fete a tous,

J'ai un soucis avec excel et vba.

J'ai un adapter un code pour faire un carnet d'adresse,

1° j'aimerais que la premiere lettre du nom et du prenom soit en majuscule, j'ai essayer Ucase mais cela me mets tous en majuscule.

2° quand je clic sur fermer apres avoir ecris dans les champs lors de l'ouverture il na pas effacer les champs

Private Sub cmdAjouter_Click()
    Dim numLigneVide As Integer
    'On active la feuille "Liste"
    Worksheets("Liste").Activate
    'On trouve la dernière ligne vide du tableau et on enregistre le numéro de la ligne dans la variable numLigneVide
    numLigneVide = ActiveSheet.Columns(1).Find("").Row
    'On vérifie que les champs obligatoires sont correctement remplis
    If txtNom.Text = "" Then
        MsgBox "Veuillez remplir le nom de votre contact", vbCritical, "Champs manquant"
        txtNom.SetFocus
    ElseIf txtPrenom.Text = "" Then
        MsgBox "Veuillez remplir le prénom de votre contact", vbCritical, "Champs manquant"
        txtPrenom.SetFocus
    Else
        'On remplit les données dans notre tableau
        ActiveSheet.Cells(numLigneVide, 1) = txtNom.Text
        ActiveSheet.Cells(numLigneVide, 2) = txtPrenom.Text
        ActiveSheet.Cells(numLigneVide, 3) = txtEmail.Text
        ActiveSheet.Cells(numLigneVide, 4) = txtTelFixe.Text
        ActiveSheet.Cells(numLigneVide, 5) = txtTelPortable.Text
        ActiveSheet.Cells(numLigneVide, 6) = txtTelAutre.Text
        ActiveSheet.Cells(numLigneVide, 7) = txtAdresse.Text
        ActiveSheet.Cells(numLigneVide, 8) = txtCP.Text
        ActiveSheet.Cells(numLigneVide, 9) = txtVille.Text
        ActiveSheet.Cells(numLigneVide, 10) = txtAnniversaire.Text
        ActiveSheet.Cells(numLigneVide, 11) = txtRemarque.Text
        'On efface le formulaire et on replace le curseur sur le premier champs (Nom)
        txtNom.Text = ""
        txtPrenom.Text = ""
        txtEmail.Text = ""
        txtTelFixe.Text = ""
        txtTelPortable.Text = ""
        txtTelAutre.Text = ""
        txtAdresse.Text = ""
        txtCP.Text = ""
        txtVille.Text = ""
        txtAnniversaire.Text = ""
        txtRemarque.Text = ""
        txtNom.SetFocus
    End If
End Sub

Private Sub cmdFermer_Click()
    frmNouveau.Hide
End Sub

Merci de votre aide et de vos explications

Bonjour

Joyeux Noël

Essayes

ActiveSheet.Cells(numLigneVide, 1) = Application.Proper(txtNom.Text)
ActiveSheet.Cells(numLigneVide, 2) = Application.Proper(txtPrenom.Text)

Super merci ca marche

bonne fete et merci