Ajouter = devant calcul après copie

Bonjour à tous,

J'ai un calcul sans égal en plage B40 ((GRANDE.VALEUR(J2:U2;1)+GRANDE.VALEUR(J2:U2;2)+GRANDE.VALEUR(J2:U2;3)+GRANDE.VALEUR(J2:U2;4)+GRANDE.VALEUR(J2:U2;5)+GRANDE.VALEUR(J2:U2;6))*2) que je souhaiterai copier en W2 en ajoutant un égal devant la formule de sorte à ce que celle-ci s'exécute.

Je ne sais pas trop comment modifier mon code afin que cela se fasse :

Sub FormuleW2()
    Worksheets("résultats").Range("W2").Value = Worksheets("Calculs").Range("B40").Value
End Sub

Je ne sais pas si mon explication est très clair, dites moi.

Merci d'avance à tous! :)

A tester :

Sub FormuleW2()
    Worksheets("résultats").Range("W2").FormulaLocal = "="&Worksheets("Calculs").Range("B40").Value
End Sub

Merci beaucoup Pedro 22 !