COuleur de cellule

Bonjour,

Voilà, je débute en VBA et j'aimerais écrire un bout de script qui change la couleur de fonc d'une cellule en fonction du contenu d'une autre cellule

voici ce que j'ai commencé :

Function comment_type(typejeu)
Select Case typejeu
Case 'QUIZ '
comment_type = 'Mot souhaité :'

Case 'JEU'
comment_type = 'Quel type ?'

Case Else
comment_type = ''

End Select
End Function

J'aimerais que dans le cas où la cellule n'est pas vide (case 'QUIZ' et case 'JEU', la couleur de fond de la cellule D12 devienne grise.

Merci de votre aide !