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

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