tt mettre en minuscule sauf la première lettre

Option Explicit

Sub Thefirstletterincapseverywhereandwheneveryouwant()
Dim Cell As Range

    For Each Cell In Activesheet.Usedrange
        Cell = Application.Worksheetfunction.Proper(Cell)
    Next

End Sub

Cliquez pour agrandir...