VBA - copier coller avec msgbox pour cell

Bonjour,

Je cherche à intégrer ce bout de code dans une macro.
Mon objectif : inviter l'utilisateur à copier une celulle et à ce que le contenu de cette cellule soit coller dans une autre. Je veux que ça passe par une macro, afin de supprimer la ligne de la cellule qui a été copiée. Je ne sais pas si je suis très claire.

Sub copiecom() 'Permet de copier le commentaire dans la bonne cellule

Dim Plage, Plage2 As Range
Set Plage = Application.InputBox("Veuillez sélectionner la cellule à copier correspondant au commentaire initiale de la ligne (colonne J). ", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez sélectionné est : " & Plage.Address)
Range(Plage.Address).Copy

Set Plage2 = Application.InputBox("Veuillez sélectionner la cellule à coller correspondant à la ligne à solder (colonne J). ", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez sélectionné est : " & Plage2.Address)
Range(Plage2.Address).Paste

End Sub

Ma macro ici bug sur le range(plage2.adress).paste
Merci de l'aide que vous pourrez m'apporter.