Bonjour
une possibilité avec déclenchement manuel
Sub Maj_Prem_Lettre()
Dim Cel_en_Cours As Range, Test As Boolean, Range_Test As Range
Test = False
On Error GoTo Gere_Erreurs
Set Range_Test = Range('A1').SpecialCells(xlCellTypeConstants, 23)
On Error GoTo 0
If Test = False Then
For Each Cel_en_Cours In Range_Test
Cel_en_Cours.Value = UCase(Left(Cel_en_Cours.Value, 1)) & Right(Cel_en_Cours.Value, Len(Cel_en_Cours.Value) - 1)
Next Cel_en_Cours
End If
Exit Sub
Gere_Erreurs:
Test = True
Resume Next
End Sub
Cordialement, A+