Vu que vous ne savez pas trop s'il faut copier des colonnes ou des lignes je copie tout.
Option Base 1
Sub test()
Dim a, b(), i, n, f%
a = Feuil1.UsedRange
ReDim b(UBound(a), 3)
For i = 5 To UBound(a, 2)
n = n + 1
b(n, 1) = a(i, 1): b(n, 2) = a(i, 2): b(n, 3) = a(i, 3)
Next
f = InputBox("T'as pas une feuille s'te plait ?!")
Sheets(f).[A65000].End(xlUp)(2).Resize(UBound(b), 3) = b
End Sub