Déplacer une cellule nommée

Bonjour,

En VBA comment déplacer une cellule en utilisant son nom ?
Par exemple Range("A1") s'appelle "Nomcellule"

ça fonctionne avec la syntaxe ci-dessous:
Range("Nomcellule").Select
Selection.Cut Destination:=Range("A2")

Mais ça ne fonctionne pas si j'utilise cette syntaxe :
Ligne= 2
Colonne =1
Range("Nomcellule").Select
Selection.Cut Destination:=Range(cells(Ligne,Colonne))
Merci de votre aide
cdt