Comment fusionner plusieurs lignes en une ligne (avec print screen)

Bonjour,

Je dois fusionner plusieurs lignes en une seule ligne sans perdre d'information.
Je peux le faire manuellement mais j'ai plusieurs centaines de lignes. Ce serait plus facile avec un raccourci.

Je pars de ceci:

J'aimerais arriver à ceci (sans créer de nouvelle ligne):

Quelqu'un pourrait-il m'aider?

Merci d'avance,

Thibaut

fusionner est une mauvaise habitude, qu'on devrait interdire quand cela concerne Excel.

Sub NoFusion()
     For Each c In ActiveSheet.UsedRange.Columns     'boucle chaque colonne dans votre feuille
          With c
               .Name = "MyC"     'plage nommée
               a = Filter([transpose(if(MyC="","~",MyC))], "~", 0)     'toutes les valeurs non-vides
               fusion = "": If UBound(a) > -1 Then fusion = a(0)     'première valeur
               c.Offset(1 - c.Row).Resize(1).Value = fusion
          End With
     Next
End Sub

Bonjour à tous

L'exemple est peut parlant.

Faisable par PowerQuery intégré à Excel.

Joins un fichier moins théorique...