FORMATER UN PRÉNOM AVEC LES 1ERES LETTRES EN MAJ

Public Function Format_Prenom(Chaine As String) As String
'Transforme la 1ere lettre d'un prénom en maj
Dim intLen As Integer
Dim intIdx As Integer
Dim a As String
Dim strFinale As String

intLen = Len(Chaine)

For intIdx = 1 To intLen
    a = Mid(Chaine, intIdx, 1)
        If intIdx = 1 Then a = UCase(a)
        If intIdx > 2 Then
            If Mid(Chaine, intIdx - 1, 1) = " " Then a = UCase(a)
            If Mid(Chaine, intIdx - 1, 1) = "-" Then a = UCase(a)
        End If
    strFinale = strFinale & a
Next

Format_Prenom = strFinale
End Function