macro pour vérifier si formule = valeur existe

[XC]

Bonsoir à tous,


J'ai besoin d'une aide - mais je dois pas être tout seul ds ce cas. Je cherche une macro qui checke la feuille sur laquelle je suis ('current.Sheet') et qui mette en rouge / ou envoie un message les cellules ds lesquelles il y a un formule de la forme '= +valeur' car je travaille sur des fichiers où les gens peuvent faire des plugs (bref de faire des ajustements de chiffres à la main et il serait bien que je les trouve rapidement).
J'ai une macro qui vérifie ds une zone nommee ('CHECKNNM1') si les valeurs sont positives ou negatives. Est-ce que quelqu'un peut l'adapter à mon probleme de formule = valeur (je dis pas = formule mais formule = valeur (ex : = 10000+5000)

For Each cell In Range('CHECKNNM1')
If cell.Value < 0 Then
MsgBox ('Il y a un montant de Subscription négatif !!! ')
End If
Next cell
For Each cell In Range('CHECKNNM2')
If cell.Value > 0 Then
MsgBox ('Il y a un montant de Redemption positif !!! ')
End If
Next cell
For Each cell In Range('CHECKNNM3')
If cell.Value < 0 Then
MsgBox ('Il y a un montant d'Asset Under Advisory négatif !!! ')
End If
Next cell

Sheets('Accueil').Select
Range('A1').Select
End Sub



Merci pour votre aide

XC