Sub test()
Dim i As Integer
'modification sur la boucle (de bas en haut)
For i = Sheets('feuil1').Range('B65536').End(xlUp).Row To 5 Step -1
With Sheets('feuil2')
.Range('B65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 2).Value
.Range('C65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 3).Value
.Range('D65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 4).Value
.Range('E65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 5).Value
.Range('F65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 6).Value
End With
'Sheets('feuil1').Rows(i).Delete
'ou pour effecer seulement le contenu de la cellule
'Sheets('feuil1').Rows(i).ClearContents
'efface toute la ligne
'pour effacer seulement la plage de cellule copiée
Sheets('feuil1').Range('B' & i & ':F' & i).ClearContents
Next i
End Sub