Sub UneColonne()
Dim rgIn As Range, rgOut As Range, i&
On Error Resume Next
Set rgIn = Application.InputBox("Sélectionnez la plage à traiter SVP", _
"Plage à 'déplier' :", Type:=8)
If rgIn Is Nothing Then Exit Sub
Set rgOut = Application.InputBox("Sélectionnez la cellule destination SVP", _
"Vers la cellule :", Type:=8)
If rgOut Is Nothing Then Exit Sub
On Error GoTo 0
With rgOut.Parent
.Range(rgOut, .Cells(Rows.Count, rgOut.Column)).ClearContents
For i = 1 To rgIn.Columns.Count
rgIn.Columns(i).Copy rgOut.Offset(rgIn.Rows.Count * (i - 1))
Next i
.Select
End With
End Sub