Re,
A la relecture de ta demande, je me demande si ma 1ère réponse est correcte.
Je pense que celle-ci répond au plus juste. Un peu plus complexe soit.
Si tu as besoin de commentaires, demande.
Sub Tri2()
Dim a, tmp(), Derl%, i%, j%, c%
With Sheets("Feuil1")
Derl = .Range("A" & Rows.Count).End(xlUp).Row
a = .Range("A1:G" & Derl).Value
Range("G:G").ClearContents
ReDim tmp(Derl * 4)
c = 0
For i = 1 To 4
For j = 1 To Derl
tmp(c) = a(j, i)
c = c + 1
Next j
Next i
.[G1].Resize(UBound(tmp), 1) = Application.Transpose(tmp)
End With
End Sub
Cordialement