Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Err_Workbook_SheetChange
Dim Cel As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each Cel In Target
If VarType(Cel) = vbString Then Cel = UCase(Left(Cel, 1)) & Right(Cel, Len(Cel) - 1)
Next Cel
Sort_Workbook_SheetChange:
Application.ScreenUpdating = True
Application.EnableEvents = True
Exit Sub
Err_Workbook_SheetChange:
MsgBox Err.Description, vbCritical + vbOKOnly, "Erreur Excel n°" & Err.Number
Resume Sort_Workbook_SheetChange
End Sub