Renvoyer une valeur par défaut contenu dans une cellule

Bonjour, j'aimerais renvoyer le contenu d'une cellule comme valeur par défaut dans une boîte de dialogue qui demande l'année en cours:

Dim resultat As String

resultat = InputBox("Quelle est l'année d'inventaire en cours ?", "","ICI")

If resultat <> "" Then

Range("annee_inv_en_cours").Select

Selection.Value = resultat

End If

D'après moi, c'est ICI que je dois faire quelque chose mais quoi ?

merci d'avance

Salut Simorissette,

quelque chose comme ça? En supposant que [A1] contienne la donnée par défaut de l'InputBox...

Réponse = Application.InputBox("Quelle est l'année d'inventaire en cours ?", "Encodage", Cells(1, 1))
If Réponse = False Then
        MsgBox "bouton annuler"
        Exit Sub
End If

Sinon, explique mieux!

A+