VBA: problème de structure conditionnelle

Sub test()
Dim transport As Integer, hôtel As Integer, piano As Integer, foot As Integer, Valeur As Integer, Cout As Integer

'en fait j'aimerai faire un inputbox au début pour demander à l'utilisateur quelle ville il veut (Lyon ou Bordeaux)
'et ensuite une fois qu'il a répondu on calcule son cout de revient du voyage en fonction de sa ville
'le code que j'ai mis ci-dessous ça correspond à Lyon (Bordeaux du coup c'est la même chose)
transport = Range("b3").Value
hôtel = Range("b4").Value
piano = Range("b5").Value
foot = Range("b6").Value
Valeur = InputBox("Piano ou Foot? (piano=1 foot=2) ")
If Valeur = 1 Then
Cout = transport + hôtel + piano
MsgBox ("votre cout est de " & Cout)
ElseIf Valeur = 2 Then
Cout = transport + hôtel + foot
MsgBox ("votre cout est de " & Cout)
Else
MsgBox ("veuillez saisir une valeur correcte")
End If


End Sub