Passer de "en ligne" à "en colonne en doublon"

Une solution avec macro
https://mon-partage.fr/f/zfSjfzu8/

Option Explicit

' constante à modifier selon ta structure
' Feuille source
Const FS As String = "Feuil1"
Const codebFS As Long = 1       ' première colonne
Const lidebFS As Long = 2       ' première ligne
' Feuille But
Const FB As String = "Feuil1"
Const codebFB As Long = 8       ' première colonne
Const lidebFB As Long = 2       ' première ligne

Public Sub OK()
Dim s As String
Dim lifinFS As Long, liFS As Long, coFS As Long
Dim liFB As Long
liFB = lidebFB
With Sheets(FS)
  lifinFS = .Cells(Rows.Count, codebFS).End(xlUp).Row
  liFS = lidebFS - 1
  Do
    coFS = codebFS
    liFS = liFS + 1
    s = .Cells(liFS, coFS).Value
    coFS = coFS + 1
    While .Cells(liFS, coFS) <> ""
      Sheets(FB).Cells(liFB, codebFB) = s
      Sheets(FB).Cells(liFB, codebFB + 1) = .Cells(liFS, coFS).Value
      liFB = liFB + 1
      coFS = coFS + 1
    Wend
  Loop Until liFS = lifinFS
End With
End Sub

Cdlmnt

Bonjour

Pour joindre un fichier
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".

Cdlmnt