valeur numérique cellule

Bonjour,

je veux copier la valeur numérique d'une cellule contenant une formule excel mais j'y arrive pas avec ce code :

Code:

---

1 2 3 4 5

calcul.Range("B13").Select Selection.Copy result.Activate result.Range("R" & i).Activate ActiveSheet.Paste

---

Il prend toujours la valeur 0 pour la cellule à cause je pense de la formule excel presente dans la cellule .

bonsoir,

essaies ce code tout simple

Code:

---

result.Range("R" & i) = calcul.Range("B13").Value

---