Transposer plusieurs données d'une ligne avec un dénominateur commun

Bonjour,

Tout nouveau sur le forum, je sollicite votre aide sur un problème qui me rend fou depuis pas mal de temps maintenant, j'ai décidé de sauter le pas pour implorer votre aide

Sur une liste de données uniques, j'ai plusieurs valeures listées sur la même ligne que la donnée unique (le nombre peut beaucoup varier, comme le montre l'exemple ci-après)
Pour le schématiser, je souhaite passer de ça :

à ça :

Je n'arrive pas à trouver de fonction qui permettrait de faire cela

(NB ; Je dispose d'AbleBits Suite, si une fonction permettant de faire cela y est incluse, je suis preneur :) )

Merci !

Cdt,

Sacha

Avec la PJ

Bonjour à tous,

Avec power query

Hello,

Une autre approche PowerQuery sur base du fichier transmis par DjiDji

@+

Bonsoir à tous !

Une troisième approche ? :

Bonsoir à tous,

Une autre méthode par VBA. Le résultat est automatiquement mis à jour quand on sélectionne la feuille "Resultat attendu". On applique une mise en forme colorée sur le résultat.

Le code dans le module de la feuille "Resultat attendu" :

Private Sub Worksheet_Activate()
Dim t, i&, j&, n&
   t = Sheets("Donnees brutes").Range("a1").CurrentRegion
   ReDim r(1 To UBound(t) * UBound(t, 2), 1 To 2)
   For i = 1 To UBound(t): For j = 2 To UBound(t, 2)
      If t(i, j) <> "" Then n = n + 1: r(n, 1) = t(i, 1): r(n, 2) = t(i, j)
   Next j, i
   Columns("a:b").Clear
   Range("a1").Resize(n, 2) = r
End Sub

Et bien je ne m'attendais pas à une telle réception :)

Merci à tous pour vos retours ! Je vais analyser tout ça pour comprendre, merci infiniment vous me sauvez la vie !