Bonjour Claude, bonjour le Forum
Je pense que cette Macro pourra t'aider.
Sub Minus1maj()
Dim Cell As Variant
On Error Resume Next
For Each Cell In Selection
Cell.Value = UCase(Left(Cell.Value, 1)) & _
LCase(Right(Cell.Value, Len(Cell.Value) - 1))
Next Cell
End Sub
Elle te permettra de mettre la première lettre de tes cellules sélectionnées en majuscule.
@+
Art