Sélectionner une ligne sur deux jusqu'à la fin de la collonne

[David]

Bonjour tout le monde,

J'ai une colonnne A ou se trouve un nom sur chaque ligne.

J'aimerais juste à partir de A1 séléctionner celle plus bas la couper et la coler une colonne plus à droite et plus haut.

Voici ce que je fais

ActiveCell("a1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Cut
ActiveCell.Offset(-1, 1).Range("A1").Select
ActiveSheet.Paste

Le problème c'est que j'aimerais le faire pour toute mes lignes de la collonne A, je dois donc utiliser une boucle, quelqu'un pourrait-il svp m'éclairer ?

Merci
David

 

[david2]

dim i
for i = 1 to 10
ActiveCell("a"& i).Select
ActiveCell.Offset(1, 0).Range("A"& i).Select
Selection.Cut
ActiveCell.Offset(-1, 1).Range("A" & i).Select
ActiveSheet.Paste
next

 

[David]

Un très grand merci pour ta réponse.

Le problème c'est qu'il me dit

Incompatibilité de types et s'arrête à cette ligne :

ActiveCell("a" & i).Select

Je pense qu'il n'accepte pas le i

Penses-tu savoir pourquoi ?

Merci encore pour ton aide

 

[David2]

Désolé j'ai oublié de remplacer la premiere ligne qui fait reference a une plage deja selectionnée.

donc a la place de la ligne:

ActiveCell("a" & i).Select

tu mets juste:

range("a" & i).Select