enfin pour compléter
un code trouver sur le Net
Sub TextConvert() 'Better than mine
'Source: Lien supprimé
'By Ivan F Moala
Dim ocell As Range
Dim Ans As String
Ans = Application.InputBox('Type in Letter' & vbCr & _
'(L)owercase, (U)ppercase, (S)entence, (T)itles ')
If Ans = '' Then Exit Sub
For Each ocell In Selection '.SpecialCells(xlCellTypeConstants, 2)
Select Case UCase(Ans)
Case 'L': ocell = LCase(ocell.Text)
Case 'U': ocell = UCase(ocell.Text)
Case 'S': ocell = UCase(Left(ocell.Text, 1)) & _
LCase(Right(ocell.Text, Len(ocell.Text) - 1))
Case 'T': ocell = Application.WorksheetFunction.Proper(ocell.Text)
End Select
Next
End Sub
Reste toujours et encore les accents...