Sub EnColonne()
haut = 4
'Feuil1 est le codeName de l'onglet et non son name
bout = Feuil1.[B4].End(xlToRight).Column
Sheets.Add After:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
For col = 2 To bout
bas = Feuil1.Cells(65536, col).End(3).Row
For lig = 4 To bas
k = k + 1
.Cells(k, 1) = Feuil1.Cells(lig, col)
Next
Next
End With
End Sub