Pb de somme dans une boucle

Bonjour,

j'ai effectue une boucle:

For u = 2 To 20
Sheet1.Select
cherche = Range("F" & u)
Sheet2.Select

For j = 2 To 20
Sheet2.Select
trouve = Range("A" & j)

If cherche = trouve Then
Sheet2.Select
Range("A" & j).Select
valeurfin = ActiveCell.Offset(0, 7).Value
valeurfin = valeurfin + valeurfin
MsgBox valeurfin
Sheet1.Select
Range("B" & u).Select
ActiveCell.Value = valeurfin
End If

Next j
Next u

en fait je cherche une valeur dans une feuille, je la trouve dans une autre et je prends la valeur de la 7eme colonne (rechercheV en fait)
le probleme est que je peux trouver plusieurs valeur pour une valeur cherchee et jaimerais que la valeurfin egale la somme de toutes les valeur trouvees

genre valeurfin pour j=3 = valeurfin pour j=1+ VALEURFIN POUR J=3

Comment faire ????
MERCI BCP BCP