Sub test__Abc()
Conversion 1 'Nom Propre
End Sub
Sub test___abc()
Conversion 2 'minuscule
End Sub
Sub test____ABC()
Conversion 3 'MAJUSCULE
End Sub
Private Sub Conversion(Optional Casse As Long = 1)
Dim vCasse$, c As Range
vCasse = Choose(Casse, "PROPER", "LOWER", "UPPER")
For Each c In Selection.Areas
c.Value = Evaluate("IF(ISTEXT(" & c.Address & ")," & vCasse & "(" & c.Address & "),REPT(" & c.Address & ",1))")
Next
End Sub