Convertir en cas de phrase, Excel VBA
Sub convertirphrase() Dim plagecell As Range For Each plagecell In Selection If WorksheetFunction.IsText(plagecell) Then plagecell.Value = UCase(Left(plagecell, 1)) & LCase(Right(plagecell, Len(plagecell) – 1)) End If