Rédaction d'une formule dans vba

Bonjour,

j'ai une feuille excel dans la quelle j'ai un bouton qui remet à zéro toutes les cellules de la feuilles et réécrit les formules dans les cases où il y en as.
J'ai dans la case I46:K46 la formule ci dessous

=SI(ESTVIDE(D25);"";"FR"&TEXTE(MOD(3*MOD(GAUCHE(D25;9);97)+12;97);"00")&" "&TEXTE(GAUCHE(D25;9);"000 000 000"))

mais je n'arrive pas à écrire un code qui ait pour conséquence de remettre cette formule dans la case (si elle avait été supprimée).

Pouvez-vous m'aider.

Merci