Pbm pour lier les cellules à une textbox VBA

Bonjour,

débutante en VBA je cherche à remplir dans un tableau les colonnes PrixVente et DateVente d'un bien; dans l'userform l'utilisateur saisit le code du bien et les données prix et date, je voudrais que la procédure cherche le code du bien (dans la colonne I), et saisisse ensuite le prix et la date.
Voici ce que j'ai écrit pour l'instant:

Sub RemplirVente()
With Worksheets("DonneesStockees").Range("I:I")
Set C = .Find(Code.Text, LookIn:=xlValues)
I = 0
While C Is Nothing
I = I + 1
Wend
With Range("A" & 2 + I & ":I" & 2 + I)
.Cells(7).Value = DateV
.Cells(8).Value = MontantV
End With
End With
End Sub

Je reçois un message d'erreur sur la fonction find (l'objet n'est pas trouvé). Ma variable Code est pourtant bien définie.

Toute aide sera la bienvenue!
Merci d'avance,
Sandrine