Problème macro liaison valeur cellules

Bonjour
J'ai fait un module pour la création d'inventaires de part des listes de produits, dans le principe, une personne clique sur une case à cocher et sélectionne un tarif sur une mercuriale qui se copie sur une base de données. Mon problème est que je désire que la valeur de la cellule sur la BDD soit liée afin que lorsque je changerai le prix sur ma liste fournisseur celle-ci soit automatiquement mise à jour.
Voici le code que j'utilise mais cela bloque:

Sub Tarif_surgelé
Dim strNomFeuille As String

strNomFeuille = "base de données"

If FeuilleInexistante(strNomFeuille) Then
MsgBox "Veuillez d'abord créer un inventaire", vbOKOnly + vbCritical
Exit Sub

End If

If Range("h4") = True Then
Range("i4").Select
Sheets("Base de données").Select

Range("c500").End(xlUp).Offset(1, 0).PasteSpecial
ActiveCell.FormulaR1C1 = "=cells.value"

Sheets("surgeles").Select
Application.CutCopyMode = False

End If
End Sub

Auriez vous plus d'infos à me donner SVP.
Merci