Un exemple de boucle qui réalise cà
il suffit de te positionner sur la première cellule à déplacer et de lancer la macro
Sub test()
While ActiveCell <> ""
ActiveCell.Offset(0, 5) = ActiveCell
ActiveCell.Clear
ActiveCell.Offset(3, 0).Select
Wend
End Sub