Transformation colonne en ligne

Sub Bouton2_QuandClic()
Dim c As Range
Dim x As Byte

x = 1

For Each c In Range('a2:a' & Range('a65536').End(xlUp).Row)
&nbsp; &nbsp; If c <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; Cells(x, 8) = c
&nbsp; &nbsp; &nbsp; &nbsp; For i = 1 To Cells(c.Row, 1).End(xlToRight).Column
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(x, i + 8) = c.Offset(0, i)
&nbsp; &nbsp; &nbsp; &nbsp; Next i
&nbsp; &nbsp; End If
&nbsp; &nbsp; x = x + 1
Next c
End Sub

Cliquez pour agrandir...