Il n'y a pas de formule, on t'a chacun proposé une macro.
Pour voir à quoi ça ressemble presse alt+F11 sur ton clavier et la macro se situe dans le module 1 (pour ma version) ou sur l'objet Feuil 1 (pour la version de recreation59).
Sub deplacer()
Selection.Copy Worksheets("Feuil2").Cells(Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1, 1)
End Sub
Pour l'explication :
Selection.copy permet de copier la cellule sélectionnée.
Worksheets("Feuil2").Cells(Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1, 1) indique la destination de la copie, c'est à dire la première cellule vide de la colonne A de la feuille A2.
Attention par contre je ne fait aucune vérification, il faut pour que ça marche que tu sélectionnes 1 ligne, 1 cellule ou une plage de cellules. Si tu sélectionne une colonne entière ça va planter. De même si tu renommes "Feuil 2"