déjà remplace FormulaR1C1 par Formula, ensuite, si tu écris Worksheets.name, tu auras forcément une erreur, puisque tu ne dis pas de quelle feuille il s'agit.
Tu peux écrire ceci
Worksheets(1).Name
ou Worksheets("Feuil1").Name
enfin vire les apostrophes que tu as mises pour je ne sais quelle raison...
donc ça devrait donner :
ActiveCell.Formula = "=" & Worksheets(1).Name & "!K4"
et là ça marche