Sub Question()
Dim Réponse As Variant
Dim Seuil As Long
Seuil = Range("A1")
Réponse = InputBox("Le seuil actuel est à : " & Seuil & ", voulez vous le modifier ?", "Attente d'une réponse utilisateur", Seuil)
MsgBox "Et voilà le nouveau seuil est : " & Réponse
Range("A1") = Réponse
End Sub