Bonjour Razmi17, le forum,
A tester:
Sub copier_coller_cellule()
Dim fichier As Workbook
Dim onglet As Worksheet
Dim derniere_ligne As Long, i As Long, derlig As Long,k%
Set fichier = ActiveWorkbook
Set onglet1 = fichier.Worksheets(1)
Set onglet2 = fichier.Worksheets(2)
Application.ScreenUpdating = False
derniere_ligne = onglet2.Cells(Rows.Count, 1).End(xlUp).Row + 1
derlig = onglet1.Cells(Rows.Count, 1).End(xlUp).Row
i = 6
Do While i <= derlig
With onglet2
For k = 1 To 26
.Cells(derniere_ligne, k) = onglet1.Cells(i, k)
Next k
derniere_ligne = derniere_ligne + 1
End With
i = i + 1
Loop
End Sub
Cordialement,