Salut,
Ta demande n'est pas des plus claires ; il faut bien s'accrocher pour comprendre
Sur la base de tes premières explications, voici une macro qui devrait répondre à ton attente :
Option Explicit
Sub aa()
Dim i As Integer, x As Integer
x = 1
With Sheets("b")
For i = 5 To Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & x) = Range("A" & i)
x = x + 10
Next i
.Select
End With
End Sub