Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim x As Integer 'déclare la varaible x (incrément)
dl = Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée de la colonne B
For x = dl To 1 Step -1 'boucle inversée (pas de -1) sur les cellules de la dernière ligne dl à la ligne 1
Cells(x, 2).Cut 'coupe la cellle de la colonne B
Cells(x + 1, 1).Insert Shift:=xlDown 'l'insère dans la colonne A en décalant la cellule vers le bas
Next x 'prochaine cellule de la boucle
End Sub