Macro pour envoyer la ligne courante en fin de tableau

Bonjour Forum,

J'aimerais avoir une macro qui :

• coupe la ligne de la cellule active (par exemple ligne 3, colonne B)
• la colle sous la dernière ligne contenant des données dans la feuille
• repositionne la cellule active à sa position initiale (ici : ligne 3, colonne B)

C'est sûrement enfantin pour les as du VBA, mais trop difficile pour moi, qui ne sais que bidouiller du code déjà existant.

Quelqu'un pourrait-il m'aider ?

Merci !

Bonjour

Sub Déplace()
    Application.ScreenUpdating = False
    Range("A3:B3").Select
    Selection.Cut
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    Range("B3").Select
End Sub

Cordialement

Merci Amadeus !

Ta macro fait ce que je souhaite, mais elle ne le fait qu'une fois et pour une seule ligne.

En fait, ce que je souhaite c'est une macro qui coupe/colle (ou, si possible, qui translate) la ligne de la cellule active après la ligne de la dernière cellule non vide de la feuille.

J'aurais dû joindre un fichier, ma demande aurait sans doute été plus claire. Du coup je repars sur ton fichier avec l'état avant et après exécution de la macro.

Bonjour

Ton fichier en retour

Cordialement

C'est parfait !!!

Merci beaucoup !

Et ce qui me rassure : je n'aurais pas su l'écrire moi-même !