Salut et bienvenue,
Avec un fichier ça serait plus facile pour toi d'avoir une réponse la plus précise correspondant à ton besoin.
Je te conseille d'utiliser un tableau pour comparer tes valeurs, par exemple (taper à la volée sans tester), comme suit:
VB:
Dim pref(1 To 20)
Dim pts(1 To 20)
pref(1)=1
pts(1)=2
...
For i = 1 To 20
For j = 1 To 20
If pts(i)=pref(j) Then y=y+1
Next j
Next i