majuscule - boucle

Sub majuscule()
'
  Dim sel As Range
  'recherche des cellules contenant du texte
    Selection.SpecialCells(xlCellTypeConstants, 2).Select
  For Each sel In Selection
    'mise en majuscule de la première lettre de la cellule
    sel.Value = Application.WorksheetFunction.Proper(Left(sel.Value, 1)) & _
    Right(sel.Value, Len(sel.Value) - 1)
  Next
End Sub

Cliquez pour agrandir...