Autres formule calcul vba

[abdernino1985]

Bonjour;
Voilà en F20 j'ai une formule =SIERREUR((F19*E21)+F19;"") qui s'applique au cas Sous total REG Prp ÂGE et sou total REG Prp permis, et au cas Sous total REG Prp Usage j'autorise la saisie Manuele mais mon problème c'est que quand je saisis la formule après disparaît, j'ai essayé avec la fonction recherchev ça n'a rien donner auriez-vous une idée
moi j'ai fait ca mais ca marche pas
Sub calcul()
Select Case Range("D21")
Case Is = "Sous total REG Prp Age"
With ActiveSheet
Case .Range.Calculate.Range("F20").Formula = "(F19 * E21) + F19"
Else
Select Case Range("D21")
Case Is = "Sous total REG Prp Permis"
With ActiveSheet
Case .Range.Calculate.Range("F20").Formula = "(F19 * E21) + F19"
End If
End Sub