Adding If/Then to format cells based on date

Hello,

I'm working on an interactive calendar and I would like to add two functions to an active X button. This is my code at the moment:

Private Sub CommandButton1_Click()

If [A1].Interior.ColorIndex = 6 Then [B1].Value = 1

Range("C12 , C18, C24, C30, C36, C42") = "Rencontre Communautaire"
Range("C12 , C18, C24, C30, C36, C42").Interior.ColorIndex = 37
Range("E12 , E18, E24, E30, E36") = "R?union des Responsables"
Range("E12 , E18, E24, E30, E36").Interior.ColorIndex = 6


End Sub

Both functions would do something like "If value in A1 is less than 25" then format cell "A2" color and text as in my previous code, just either in a different column.

Thanks for any help,

Cheers,