Bonjour,
Oui, c'est possible :
-soit par glisser/déposer (sélectionne ta cellule,clique sur le bord, maintiens enfoncé le bouton de la souris et déplace ta cellule)
-soit par macro : pour reprendre ton ex :
Range('P13').Select
Selection.Cut Destination:=Range('B16')
A+