Transformer des lignes en une colonne

Option Explicit

Option Base 1

Sub TransposeDonnees()
'
Dim TabInit As Variant
Dim TabResult() As Variant
Dim Indice&
Dim Ligne&, Colonne%
'
  TabInit = Sheets('articles').Range('A1:I' & Range('A65536').End(xlUp).Row)

  ReDim TabResult(1 To UBound(TabInit, 1) * UBound(TabInit, 2), 1 To 1)

  Indice = 1
  For Ligne = 1 To UBound(TabInit, 1)
    For Colonne = 1 To UBound(TabInit, 2)
      TabResult(Indice, 1) = TabInit(Ligne, Colonne)
      Indice = Indice + 1
    Next Colonne
  Next Ligne

  Sheets('format drapeau').Range('A1:A' & UBound(TabResult)) = TabResult

End Sub

Cliquez pour agrandir...