Bonsoir Laurent,
Sub MiseEnMaj()
Dim myCell as Range
For each myCell in Selection
myCell.Formula = UCase(myCell.Value)
Next
End Sub
Il faut au préalable sélectionner la zone que tu souhaite mettre en majuscule ;-)
Bien à toi et bonne année 2004 aussi,
Stéphane de Belgique