y'a ça :
function lettremaj (param)
dim titre,plettre,taille,dlettre,prlettre,delettre,Mot
titre = Trim(param)
plettre = Left(titre,1)
taille = len(titre)-1
dlettre = Right(Trim(param),taille)
prlettre = UCase(plettre)
delettre = LCase(dlettre)
plettre_majuscule = prlettre & delettre
end function