XL 2010 changer couleur de la font, lors de la colorisation de la cellule

Function GetColor()
    Dim lcolor As Long
    If Application.Dialogs(xlDialogEditColor).Show(2, 0, 0, 0) = True Then
        GetColor = ActiveWorkbook.Colors(2)
    End If
    ActiveWorkbook.ResetColors
End Function

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim C As Variant
    C = GetColor
    If C = "" Then Exit Sub
    If C = vbWhite Then Target.Font.Color = vbWhite Else Target.Font.Color = vbBlack
    Target.Interior.Color = IIf(C = vbWhite, xlNone, C)
    Cancel = True
End Sub

Sub CouleurPolice()
'Menu Exécution => Réinitialiser pour arrêter la macro
Dim c As Range, coul&, coulpol&, t#
For Each c In ThisWorkbook.Sheets("semainier").[D5:BJ117] 'plage à adapter
    coul = c.Interior.Color
    coulpol = c.Font.Color
    If coul <> 16777215 And coulpol = 16777215 Then c.Font.ColorIndex = xlAutomatic
    If coul = 16777215 And coulpol <> 16777215 Then c.Font.Color = 16777215
Next
t = Timer + 1 'temporisation 1 seconde
While Timer < t And t < 86400: DoEvents: Wend 'boucle d'attente
CouleurPolice
End Sub

Private Sub Workbook_Open()
Application.OnTime 1, "CouleurPolice"
End Sub

Sub CouleurPolice()
'Menu Exécution => Réinitialiser pour arrêter la macro
Dim c As Range, coul&, coulpol&, t#
Do
    For Each c In ThisWorkbook.Sheets("semainier").[D5:BJ117] 'plage à adapter
        coul = c.Interior.Color
        coulpol = c.Font.Color
        If coul <> 16777215 And coulpol = 16777215 Then c.Font.ColorIndex = xlAutomatic
        If coul = 16777215 And coulpol <> 16777215 Then c.Font.Color = 16777215
    Next
    t = Timer + 1 'temporisation 1 seconde
    While Timer < t And t < 86400: DoEvents: Wend  'boucle d'attente
Loop
End Sub