Salut,

pour les guillemets que tu souhaites garder dans ta formule, il faut les doubler dans ton code

Worksheets("Feuil1").Range("I4").Formula =...