Public Function ModifMot(ByVal LeMot As String) As String Dim final As String = UCase(Left(LeMot, 1)) & Mid(LCase(LeMot), 2, Len(LeMot) - 1) Return final End Function