Colorer des cellules selon le contenu

Bonjour,
dans une feuille (alerte date) je veux créer un bouton contrôle qui en clic-quand
les cellules de format date et <>"" est > aujourdhui() : couleur vert
les cellules de format date et <>"" est < aujourdhui() : couleur rouge
les cellules de format date et <>"" moins une semaine d'aujourdhui() : couleur oranger
comment écrire sou vba?
merci .