Guillemets

J'essaie de transferer a une cellule la formule suivante. Mais elle n'est pas acceptée a cause que dans ma formule jai des chaines de caracteres entourées de guillemets.

Comment pourrais je faire en sorte que ma formule soit transférez a ma cellule?

ActiveSheet.Cells(18, 5).Value = "=SI(D19 = "good", "O", "C")"

Merci