Bonjour,
il s'agit probablement d'une ligne qui contient un nom sans prénom qui pose problème.
voici une proposition qui corrige ce cas.
Sub aargh()
dl = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:A" & dl).Sort key1:=Range("A1"), order1:=xlDescending, Header:=xlNo
i = 1
pl = 1
a = Split(Cells(pl, 1) & ", ", ", ")
While i <= dl
b = Split(Cells(i, 1) & ", ", ", ")
If a(0) = b(0) And Left(a(1), 1) = Left(b(1), 1) Then
Cells(i, 1) = Cells(pl, 1)
Else
pl = i
a = Split(Cells(pl, 1) & ", ", ", ")
End If
i = i + 1
Wend
Range("A1:A" & dl).Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
End Sub