macro copier un tableau sur un nouveau workbook

[Oopsi]

Bonjour à tous,


J'essaie de faire une macro pour
1°)copier un tableau (base de données, environ 30 colonnes, 300 lignes) avec les en tetes de colonnes depuis un fichier existant vers un nouveau fichier

2°) selectionner le tableau et faire un tri sur 2 colonnes

3°) selectionner le tableau et copier valeurs.

Mon code est le suivant mais VBA m'indique un message d'erreur:
" Application defined or object defined error"
ou encore :"method of class range failed"

Private Sub CommandButton2_Click()
'CopyOasteValuesNewBook Macro
' Macro recorded 03/09/2010 by Axel
'

'
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Selection.Sort Key1:=Range("Q1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub


Merci d'avance à ceux qui pourront m'aider!!! et à ceux qui auront la patience de se pencher sur ce problème!