Lier un InputBox et une cellule

Bonjour,

je souhaiterai que ce que je renseigne dans une Inputbox soit renvoyé vers une cellule du classeur ouvert.

Voila ce que j'ai pour le moment mais qui ne fonctionne pas car le message d'erreur 424 objet requis apparaît :

PerformanceUtilisateurDate = InputBox("Date :", "Entrer la date")

Feuil1.Range("A2").Value

Merci de votre aide