Classement avec ex aequo

Bonsoir et tous mes meilleurs voeux de bonheur, de plaisir et de santé

Dans le fichier joint, à partir du tableau A je voudrais obtenir le tableau B avec possibilité de garder les ex aequo, car avec "recherchev", je n'arrive pas à les avoir.

Merci d'avance pour votre aide

Bonsoir,

Avec un simple tri sur la colonne "B", cela ne suffit pas ?

Cf proposition en PJ, à tester.

Bonne soirée

Bouben

Bonsoir Bouben

Merci pour ta réponse mais le fichier que tu m'a renvoyé ne me concerne pas

Cdlt

Bonjour et bonne année,

Une proposition à étudier (avec quelques modifications!?)

A te relire.

Cdlt.

Option Explicit

Sub Flèchedroite1_Cliquer()
Dim ws As Worksheet
Dim lo As ListObject, lo2 As ListObject

    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    Set lo = ws.ListObjects("TableauA")
    Set lo2 = ws.ListObjects("TableauB")

    If Not lo2.DataBodyRange Is Nothing Then lo2.DataBodyRange.Delete
    lo.DataBodyRange.Copy Destination:=ws.Cells(6, "P")

    With lo2
        .Sort.SortFields.Add .ListColumns(1).DataBodyRange, xlSortOnValues, xlAscending
        .Sort.SortFields.Add .ListColumns(12).DataBodyRange, xlSortOnValues, xlAscending
        .Sort.Apply
        .Sort.SortFields.Clear
    End With

    Set lo2 = Nothing: Set lo = Nothing
    Set ws = Nothing

End Sub

Oups ... Boulette.

J'ai remis le bon fichier dans mon post.

Bonne soirée

Bouben