XL 2010 COPIER A LA SUITE D UNE FEUILLE A UNE AUTRE

BONJOUR EST CE QUE QUELQU UN AURAIT UNR SOLUTION POUR MOI JE VOUDRAIS COLLER A PARTIR D UN FICHIER D UNE FEUILLE A UNE AUTRE A LA SUITE MERCI
JE PRECISE JE SUIS VRAIMENT UN DEBUTANT
Sub copier_coller()
Dim ws_feuil1 As Worksheet
Dim ws_feuil3 As Worksheet
Dim der_ligne As Long
Dim ligne_coller As Long
Dim lstrw As Long
Dim ligne As Integer

'definir mes feuilles
Set ws_1 = Worksheets("ADRESSAGE")
Set ws_3 = Worksheets("MEN")
'identifier la derniere lignes
'lstrw = ws_1.Cells(Rows.Count, 1).End(xlDown).Row

'ligne_coller = ws_1.Cells(Rows.Count, 1).End(xlDown).Row + 1

'ligne_coller = lstrw + 1

der_ligne = ws_3.Cells(Rows.Count, 1).End(xlUp).Row
'ligne = [A50000].End(xlUp).Row + 1
ligne = [h5000].End(xlUp).Row + 1

'boucle sur les donnée
For i = 2 To der_ligne

'copier les valeurs et les coller
'ws_3.Range(ws_3.Cells(i, 1), ws_3.Cells(i, 26)).Copy ws_1.Cells(2,8)


ws_3.Range(ws_3.Cells(i, 1), ws_3.Cells(i, 26)).Copy ws_1.Cells(ligne, 8)


'ligne_coller = ws_1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Next i
End Sub