vba excell changement de couleur de la valeur d'une cellule

[invitec5f026fe]

Bonjour,
Je souhaiterais que vous m'aidiez a ecrire cette macro, je suis debutant sur vba excell
J'aimerais ecrire une macro qui fais la soustration sur excell entre la cellule A1 et B1 et porte le resultat dans la cellule C1.
Si le resultat est superieur a 20, ecrire le resultat en rouge, sinon l'ecrire en bleu
Voici mon code

Sub Macro1()
    ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
    If (ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]" > 20) Then
    ActiveCell.Font.Color = RGB(255, 0, 0)
    Else: ActiveCell.Font.Color = RGB(0, 0, 255)
    End If
End Sub

Merci pour l'aide
-----

[invite948b37db]

Bonsoir
Dans le If, cela n'a pas de sens de tester la formule entrée précédemment.
Il faut tester la valeur de la cellule :

If ActiveCell.Value > 20 Then

Ensuite, je n'ai jamais vu le caractère 2 points derrière Else ?

[invitec5f026fe]

Bonsoir Cherbe
Ça marche bien avec votre correction sur la boucle If

Le caractère deux points a eté généré automatiquement par Visual Basic

Merci bien