Macro remplaçant un mot d'une formule

Bonjour,

J'aurai besoin d'un coup de main (n'y connaissant quasiment rien en VB) pour changer la formule suivante en remplaçant la valeur "feuil1" dans la formule par une valeur à saisir :
=SI(D9>0;INDEX('feuil1'!$C$1:$C$311;EQUIV(D9;'feuil1'!$A$1:$A$404;0);1);"")

comment faire ?

J'ai bien trouver le code ci-dessous mais qui ne s'appllique qu'aux valeurs de cellules et non aux formules, est-ce adaptable ?

par avance merci

option Explicit
' Vériland Novembre 2003
Sub Cherche_et_Remplace()
Dim WS As Worksheet
Dim Plage As Range
Dim Recherche As String, Adresse As String, Remplace As String
Dim Ligne As Variant
Dim C As Object
Recherche = InputBox("Chercher ?", "Entrez un mot ou une lettre")
If Recherche = "" Then Exit Sub
Remplace = InputBox("Remplacer par", "Entrez un mot ou une lettre")
If Remplace = "" Then Exit Sub
For Each WS In Worksheets
Ligne = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'plage à définir
Set Plage = Worksheets(WS.Name).Range("" & "A" & "1:" & "E" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
Remplacement C, Recherche, Remplace
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With

Next WS
End Sub

Sub Remplacement(TteCellule As Range, Chercher As String, Remplace As String)
Dim Cell As Range
For Each Cell In TteCellule.Cells
Cell.Value = Replace(Cell.Value, Chercher, Remplace)
Next
End Sub