Macro pour modifier couleur de police

Bonjour , je voudrais à l'aide d'une macro modifier les couleurs de police et fond de cellule si la cellule d'à coté à gauche est grise ou vide.

Résumé du fichier ci joint:

Merci pour votre aide

Bonjour

Code Module

Sub Modifie()
Dim MaCellule As Object
For Each MaCellule In Range("C6:C27,H6:H30,M6:M37,R6:R39")
If MaCellule.Offset(0, -1).Font.ColorIndex = 16 Or IsEmpty(MaCellule.Offset(0, -1)) Then
MaCellule.Font.ColorIndex = 16
End If
Next MaCellule
End Sub

Cordialement

Très bien cela fonctionne et encore MERCI