nommer des cellules sous VBA

bonjour a tous
voila mon problème :
je récupère en pointant ma souris la référence d'une cellule de debut : origine
je recupere en pointant ma souris la reference d'une cellule de fin : finale

je veux maintenant selectionner la selection entre"origine " et " finale " pour la copier dans une autre feuille

comment faire ???

merci
j'ai ecris ça mais çà ne marche pas !!!

Sub Selection_de_la_période1()


'activation de la page de depart
Worksheets("exemple").Activate


Dim origine As Range
Set origine = Application.InputBox("Sélectionnez une cellule de départ!", "Sélection de cellules", Type:=8)

Dim finale As Range
Set finale = Application.InputBox("Sélectionnez une cellule de fin!", "Sélection de cellules", Type:=8)

'la plage de selection
Range("origine":"finale").Select
'copie de la selection
Selection.Copy
'Selection de la page de destination
Sheets("feuil1").Select
'selection de la cellule ou coller la selection
Range("A3").Select
'Colle la plage copiée
ActiveSheet.Paste
End Sub