[VBA] comparé 1 cell à plusieurs ds un tablea

Bonjour à tous,

Je viens vous demander de l'aide dans un programme vba ...

voici mon problème, soit un tableau du style :

date valeur_object valeur_réelle
1/12 100 90
1/12 140 90
1/12 95 90
1/12 80 90
2/12 200 100
2/12 100 100
3/12
...

Comme vous pouvez le voir, il y a plusieur cotation de l'objet dans la journée, le prix change.
Ce que je veux faire c'est:
- pour une même date, avoir un prix. pour avoir ce prix, soit j'ai de la chance et il correspond à la valeur réelle, soit j'ai pas de chance et c'est ce qui va arriver, la valeur de l'objet est différente de la valeur réelle. Pour ce faire, je dois prendre les 2 valeurs les plus proche de 90 (+/-) et faire une interpolation linéaire . En l'occure
==> (80+95)/2
Je dois donc :
1) sélectionner l'ensemble des lignes qui ont la même date
2) trouver les les valeur object qui sont les plus proche de 90
3) faire l'interpolation.

Mon problème étant de "sélectionner le tableau avec la même valeur, et comparer les valeurs objects à la valeur réelle pour pouvoir faire l'interpolation".
En effet, je n'arrive qu'à comparer ligne par ligne.. Je ne sais pas demander à vba de sélectionner un tableau et de comparer les celleule à une valeur.

voici une partie du rog :
Dim val_interpolsup As Integer
Dim val_interpolinf As Integer
Dim val_interpol As Integer

For i = 2 To 50

val_interpolsup = Application.WorksheetFunction.Max(Range("I" & i) < 90)
val_interpolinf = Application.WorksheetFunction.Min(Range("I" & i) > 90)
val_interpol = (val_interpolinf + val_interpolsup) / 2


si quelqu'un peut m'aider.. s'il vous plait, je bloque depuis je ne sais compbien de temps.

merciiii beaucoup