Bonjour,
Un autre exemple e VBA avec un tri sur les noms.
Cdlt
Option Explicit
Sub MEF_NomsPropres()
Dim Ws As Worksheet
Dim derLigne As Long, i As Long
Dim Nom As String
Application.ScreenUpdating = False
Set Ws = Worksheets("Feuil1")
With Ws
derLigne = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To derLigne
.Cells(i, 1) = Application.WorksheetFunction.Proper(.Cells(i, 1).Value)
Next
.Range(.Cells(1, 1), Cells(derLigne, 1)).Sort Key1:=.[A2], Order1:=xlAscending, Header:=xlYes
End With
Set Ws = Nothing
End Sub