Option Explicit
Sub ReportLineaire()
Dim Colonne As Range
Dim i As Integer
With Sheets('Feuil1')
Set Colonne = .Range('A1:A' & .Range('A35000').End(xlUp).Row)
End With
With Sheets('Feuil2')
For i = 1 To Colonne.Count
If i > 256 Then Exit Sub
.Cells(1, i) = Colonne(i, 1)
Next
End With
End Sub