Function pour mettre la première lette d'un texte en majuscule

**Admin** Lun 23 Fév - 17:35

<%
'-----------------------------------------------------------------------------------------------------
Function PremiereLettreMaj(texte)
' Permet de donner le texte avec la premiere lettre en majuscule
PremiereLettreMaj = UCase(Left(texte,1))& mid(texte,2,len(texte)-1)
End Function
'-----------------------------------------------------------------------------------------------------
%>