formule dans VBA et passage obligé

Bonjour le forum,
deux questions distinctes:
- dans une cellule, j'avais saisie la formule suivante:
=SI($CG6<>"";INDEX(Noms!$L$82:$L$145;EQUIV($CG6;Noms!$C$82:$C$145;0))+Calendrier!C26;0)
or VBA me l'a transcrite en:
"=IF(RC85<>"""",INDEX(Noms!R82C12:R145C12,MATCH(RC85,Noms!R82C3:R145C3,0))+Calendrier!RC[-2],0)"

du coup, je me suis dit que je pouvais réunir deux fonctions:
celle que je fais en Calendrier!C26 c'est à dire: Selection.FormulaR1C1 = "1" ou Selection.FormulaR1C1 = "0"
et celle que j'avais saisi et qui n'est autre que INDEX(Noms!$L$82:$L$145;EQUIV($CG6;Noms!$C$82:$C$145;0)) à laquelle
j'ajoute le résulat de Calendrier!C26

Mais à ce stade, j'ai besoin d'aide

- la deuxième question porte sur le même projet: faire un calendrier des absences pour mon job:
Comment réaliser à l'intention de l'utilisateur, une fenêtre où, pour un nom donné, il rentrerai les dates de début et de fin d'absence et cela
remplirait automatiquement les cases d'un calendrier en couleurs (ce n'est ni plus ni moins qu'un planning papier transposé sur Excel.
Attention il peut être absent en "tranches" de temps, il peut donc y avoir plusieurs débuts et fin: Exemple quelqu'un qui prend 1 semaine de
vacances en juillet et deux en août.

Là encore, mes compétences sont limitées et j'ai besoin des fortiches pour avancer
Merci
JM