VBA : calculs, fonctions et résultats

Bonjour

Je continue d'essayer d'optimiser des bouts de code de divers fichiers (suppression de "select", boucles sur des controls, etc …) et là je n'arrive pas du tout à écrire en VBA des résultats de calculs (ou fonctions) pourtant très simples :

* Au minimum : A chaque lancement de la macro, réécrire dans les cellules colorées les 5 types de calculs (voir fichier joint totalement bidon, c'est un exemple d'exercice que je m'impose pour mon apprentissage)

* Encore mieux : n'afficher que les résultats de ces calculs dans les dites cellules colorées

Merci d'avance

Je crois avoir trouvé un début de réponse au moins pour les calculs 1, 2 et 3 avec :

For i = 310 To 324
    Sheets("Synt").Cells(i, 5) = Sheets("Synt").Cells(i - 300, 8) * Sheets("Synt").Cells(6, 4) / 100
    Sheets("Synt").Cells(i, 6) = Sheets("Synt").Cells(46, i - 306) * Sheets("Synt").Cells(27, 4) / 100
    Sheets("Synt").Cells(i, 7) = Sheets("Synt").Cells(i, 5) + Sheets("Synt").Cells(i, 6)
    Next i

je continue de chercher pour le calcul n°4