Pour récupérer la varaible en VBA:
Dim x as double
x = Sheets('feuil1').Range('B2').value
Et voila le tour est joué, tu as récupéré le calcul dans une variable en VBA. Pour récupérer ce genre de chose, tu peux cacher la feuille ou tu met toutes les variables. En même temps, tu veux peut être faire le calcul directement dans ton programme VBA, mais là il faut que je retrouve le code . . .
Pour mettre des couleurs, il faut faire une mise en forme conditionnelle : format/mise en forme conditionnelle