Public Function ProperCase(chaine As String) As String ProperCase = StrConv(chaine, vbProperCase) End Function