Copie toutes lignes actives

Salut,
je bloque encore sur un détail. Je souhaite copier les cellules A à N "non vides" de ma feuille et les copier dans une autre feuille. Pour l'instant je copier 10000 lignes pour être sur de tout avoir mais je souhaiterais ne sélectionner que les lignes remplies.

Voici mon code :
Sub MAJsousconditions2222()

Dim derLigS As Long
Dim derLigR As Long
Dim derLigWS As Long
Dim ref As String
Dim Plage As Range, Cell As Range
Dim trouveWS As Boolean

' MAJ Macro
' Macro enregistrée le 11/06/2010 par Thibault
' Sheets = feuille.

'


Sheets("ListeMDC").Select
Selection.AutoFilter Field:=11, Criteria1:="AQS"
Selection.AutoFilter Field:=14, Criteria1:="="

' Dernière ligne en colonne A feuille Saisies

'derLigS = Range("A" & Cells.Rows.Count).End(xlUp).Row
'Range("A" & derLigS & ":N" & derLigS).Select
[A65536].End(xlUp).Select
Range(ActiveCell, ActiveCell.Offset(0, 8)).Select
Selection.Copy
Sheets("AQS").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("ListeMDC").Select
Range("A1").Select
Selection.AutoFilter Field:=14
Selection.AutoFilter Field:=11
ActiveWindow.LargeScroll ToRight:=-1
Range("A1").Select
Sheets("Accueil").Select
Range("A1:A4").Select
Application.CutCopyMode = False
ActiveWorkbook.Save

'Essais divers ci dessous
'derLigS = .Range("A" & Cells.Rows.Count).End(xlUp).Row
' Copier la ligne dans la feuille de la référence
' Worksheets("Saisies").Range("C" & derLigS & ":K" & derLigS).Copy _
' Destination:=Worksheets(ref).Range("A" & derLigWS)
' Application.CutCopyMode = False

' MsgBox "La copie est effectuée"
' [A65536].End(xlUp).Select



End Sub