deplacer cellule

[INFO]

salut,
j'aimerais automatiquement deplacer une cellule dans une autre
sur 3000 lignes cette cellule revient toutes les 3 lignes
ex
celule A8 a deplacer en F10
cellue A11 a deplacer en F13
celulle A14 a deplacer en F15

etc



merci

 

[sousou]

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