XL 2010 recuperer une donnée du clavier (un numero)

Bonjour,
j'au une macro VBA qui se charge de charger les notes de plusieurs etablissements à partir des fichiers excel, mais je veux avoir un MsgBox au depart qui me demande de saisir du clavier le code de l'etablissement ( 1 à 14) pour traiter chq etablissement selon ce code.

Code Etablissement
1 Etab1
2 Etab2
3 Etab3
. ........
. ........
. ........
14 Etab14

Merci infiniment