Format conditionnel avec une macro

Bonjour,

J'ai besoin d'aide, je suis débutante en visual basic et cherche dans un planning à recopier plusieurs format à partir du contenu d'une cellule.
Planning avec 13 plages horaire donc 13 couleurs. Je ne sais pas comment on va dimensionner la cellule en Vb.
Ex si la cellule A1="Astreinte 8H" alors format 1
merci d'avance