Excel vba : Sélectionner n'importe quelle cellule et indiquer 1

Bonjour,

Je suis novice en vba et je souhaiterais faire la manipulation suivante :

Si je sélectionne une ou plusieurs cellules, je veux que le contenu des cellules se remplisse avec des 1.

Ceci concerne un tableau des congés.

Merci d'avance.