Modifier la casse

Bonsoir tout le monde, j’ai saisi plusieurs feuilles en minuscule et je voudrais les mettre en majuscule. Dans Word il existe bien une fonction « modifier la casse » dans Excel, ils n’ont pas prévu cette fonction. J’ai bien créé une macro pour pouvoir le faire, mais j’arrive à modifier que cellule par cellule, impossible d’en sélectionner plusieurs. Quelqu’un a t’il la solution ?

Bonjour,

Une petite macro pour faire le travail.

Sélectionner les cellules à modifier et exécuter la macro :

Sub Majuscule()
   Dim c As Range

   For Each c In Selection
      c.Value = UCase(c.Value)
   Next c
End Sub

A+