Choisir plage a importer/exporter

Bonjour,
J'aimerais importer des données et j'aimerais permettre a l'utilisateur lui même de choisir sa plage au lieu de lui imposer une plage a chaque fois. J'ai fait un code mais je n'arrive pas a récupérer les données correctement de mon input box pour la réutiliser dans mon range. voici un petit exemple que j'ai fait mais on me dit erreur méthode range de l'objet global. En plus quand je récupéré la plage sélectionner elle s'affiche avec des $ (je crois en référence). J e sais pas si c'est ça le probable
Sub tdest()
Dim r As Range
Set r = Application.InputBox("plage", Type:=8)
Sheets("Feuil3").Activate
Range("r").Select
MsgBox r.Address 'Affiche la sélection

End Sub