Tri de données

Bonsoir à tous,

je demande votre aide pour un problème de tri des données. L'objectif est indiquer dans le fichier.

Merci d'avance.

Bonjour,

une solution via une macro

Sub tri()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 4 To dl
            col = .Cells(i, 2) * 2 + 3
            dlc = .Cells(Rows.Count, col).End(xlUp).Row + 1
            .Cells(dlc, col) = .Cells(i, 1)
        Next i
    End With
End Sub

Bonsoir h2so4,

Super ! merci pour ta réponse !!

bonne soirée et bonne année