Recompresser une table de relations en 1 ligne

Bonjour à tous !

Je dispose d'un programme permettant de transcrire en autant de ligne qu'il existe de relations un fichier de données.

Je cherche un programme permettant de faire exactement l'inverse, c'est à dire récupérer les relations sur les multiples lignes, et tout recompresser sur une seule ligne par variable colonne de droite.

Fichier joint à l'appui.

Merci par avance,

G.

Bonjour,

une solution via une macro

Sub aaargh()
    i = 2 'pointeur de ligne source
    l = 2 'pointeur de ligne résultat
    While Cells(i, 2) <> "" 'tant qu'il y a des lignes sources
        If Cells(i, 2) <> oldi Then ' si ligne dfifférente de la ligne précédente
            l = l + 1 ' incrémente ligne résultat
            c = 3 ' positionne la première colonne résultat
            Cells(l, c) = Cells(i, 2) 'copie de la colonne 2 de la source dans le résultat
            oldi = Cells(i, 2)
        End If
        c = c + 1 'incrémente N°de colonne résultat
        Cells(l, c) = Cells(i, 1)
        i = i + 1 'ligne suivante de la source
    Wend
End Sub

5/5, comme d'hab.

G.