comment automatiser une selection aleatoire ?

DerLigne = range("J65536").end(XlUp).row
Range("E2:J" & DerLigne).Copy

 Range("E2:J" & [J65536].End(XlUp).Row).Copy Range("P2")

Private Sub CommandButton2_Click()
DerLigne = Range("J65536").End(xlUp).Row
Range("E2:J" & DerLigne).Copy
End Sub

'Entre ces 2 boutons, je change de fichier via une macro et je souhaiterais que mon bouton 3, colle la selection precedemment copiée dans mon nouveau fichier...

Private Sub CommandButton3_Click()
[COLOR="Red"]Copy Range("E2")[/COLOR]
End Sub

    'Selection & copie de la plage concernée de E2 a la derniere cellule non vide de la colonne J
Private Sub CommandButton2_Click()
DerLigne = Range("J65536").End(xlUp).Row
Range("E2:J" & DerLigne).Copy
End Sub
    'Copie de la selection sur la nouvelle feuille active
Private Sub CommandButton3_Click()
ActiveSheet.Select 'sélectionne la feuille active où il faut coller
Range("E2").Select 'sélectionne la cellule/bloc ou il faut coller
Selection.PasteSpecial _
Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationAdd
End Sub

Dim WBk as Workbook
Dim s as Worksheet
set s=ActiveSheet
Set WBk=Workbooks("2èmeClasseur.xls")
Range("E2:J" & DerLigne).Copy WBk.s.range("E2")