Problème bouton active x

Oui excusez moi. En clair je veux un bouton qui quand je clique dessus me demande une valeur, qui se stocke dans une cellule.
Je vous montre ce que j'ai fais :

Private Sub CommandButton1_Click()
Dim reponse As String
reponse = InputBox("Quel est le nombre total de kilomètres ?")
Feuil1.Range("I7").Value = reponse
End Sub

Mais cela ne marche que pour la feuille 1, quand je refais pareil pour la feuille deux ou trois, quand je clique sur le bouton il me demande la valeur mais elle n’apparaît pas dans la cellule.
Voila j'espère que j'ai été clair.
Merci d'avance

Excusez moi je viens de me rendre compte en publiant qu'il fallait tout simplement que je change feuil1 par feuil2 (le 1 étant similaire au L sur vba)