Sub Réorganiser()
Dim TSrc(), RngCbl As Range, TCbl(), LSrc As Long, CSrc As Long, LCbl As Long, CCbl As Long
TSrc = Selection.Value
On Error Resume Next
Set RngCbl = Application.InputBox("Destination", Type:=8)
If Err Then Exit Sub
On Error GoTo 0
ReDim TCbl(1 To RngCbl.Rows.Count, 1 To RngCbl.Columns.Count)
LCbl = 1
For LSrc = 1 To UBound(TSrc, 1)
For CSrc = 1 To UBound(TSrc, 2): CCbl = CCbl + 1
If CCbl > UBound(TCbl, 2) Then
CCbl = 1: LCbl = LCbl + 1: If LCbl > UBound(TCbl, 1) Then Exit For
End If
TCbl(LCbl, CCbl) = TSrc(LSrc, CSrc): Next CSrc, LSrc
RngCbl.Value = TCbl
End Sub