Bonsoir,
J'avoue ne pas bien comprendre, notamment car vous essayez d'inscrire une formule renvoyant un nombre dans une cellule contrainte par une liste de validation textuelle.
Je ne vois pas bien pourquoi passer par VBA pour une chose pouvant être réalisée plus simplement sur excel.
En tout cas, il faudrait quelque chose comme :
Private Sub Worksheet_Calculate()
With Sheets("Feuil2")
.range("G8").value = Me.range("G7").value
.range("G11").value = Me.range("G14").value
end with
End Sub
Le code est à saisir dans le module de la feuille "Feuil1".
Et le mieux serait de nommer toutes ces cellules (et de modifier les références par les noms dans le code) afin d'éviter les désagréments du référencement statique.
Cordialement,