Tri dépendant

Ca fonctionne uniquement parce que les adhérents secondaires ont le même
nom de famille que l'adhérent principal.

Voici (enfin) une solution universelle:

Sub Tri()
Dim lrow As Long
Columns("A").Insert
For lrow = 2 To Range("B2").End(xlDown).Row
With Cells(lrow, "B")
.Offset(0, -1) = (.Value = .Offset(0, 1).Value)
End With
Next lrow
Range("A2:E2").Resize(lrow - 1).Sort _
key1:=Range("C2"), order1:=xlAscending, _
key3:=Range("B2"), Order3:=xlAscending, _
key2:=Range("A2"), Order2:=xlDescending
Columns("A").Delete
End Sub

Bon WE à toi aussi!
--
AP

"Didier GUYOT" <didier.guyot@club-internet.fr> a écrit dans le message de
news: e34dpNndGHA.536@TK2MSFTNGP02.phx.gbl...

Je te remercie beaucoup Ardus Petrus
cela fonctionne parfaitement
Bon week-end
M. Didier GUYOT


"Ardus Petus" <ardus.petus@laposte.net> a écrit dans le message de news:
%23R9GjKndGHA.3364@TK2MSFTNGP05.phx.gbl...

Plus simple (j'avais cru que les prénoms jouaient un rôle):

Sub Tri()
Dim lrow As Long
Dim bPrincipal As Boolean
Columns("A").Insert
For lrow = 2 To Range("B2").End(xlDown).Row
With Cells(lrow, "B")
bPrincipal = .Value = .Offset(0, 1).Value
.Offset(0, -1).Value = .Value & CInt(Not bPrincipal)
End With
Next lrow
Range("A2:E2").Resize(lrow - 1).Sort _
key1:=Range("A1"), order1:=xlAscending
Columns("A").Delete
End Sub

"Didier GUYOT" <didier.guyot@club-internet.fr> a écrit dans le message
de news: Op3sznmdGHA.1456@TK2MSFTNGP04.phx.gbl...

Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8