Remplacer formule par valeur si positive

Bonjour a tous

une formule excel est appliquée à un ensemble de cellule d'un onglet de mon classeur excel. Cette formule cherche des valeurs dans un 2nd onglet. Je voudrais pouvoir figer les valeurs du 1er onglet lorsque la donnée est trouvée. La modification des données du 2nd onglet ne doit donc pas perturber celles du 1er quand différent de NA.

Je pensais donc créer une macro vba qui remplacerait les cellules contenant une formule et dont le résultat est positif par la valeur renvoyée de la formule. Si la formule ne renvoit que NA, la formule est maintenu sur la cellule considérée.

Voici le bout de code que j'ai écrit pour l'instant. Pourriez vous m'aider à le compléter ?

Merci à vous

Sub test()

plage = Range("F4:NC400")

'Parcourir les cellules de la plage utilisée

For Each Cellule In plage

'Traiter uniquement les cellules possédant une formule

If Cellule.HasFormula And Cellule.Value > 0 Then Cellule.Formula = Cellule.Value Else MsgBox ("OK")

Next Cellule

End Sub

Bonsoir

Un fichier serait le bienvenu!

Cordia5