Je sais pas ce où est ce que tu veux les extraire mais voila le code qui te donne les deux meilleur résultat de chaque club :
en supposons que c des entiers
Private....
Dim intMax1 As integer
Dim intMax2 As integer
intMax1=0
intMax2=0
" si le nombre de ligne est constant tu fais un boucle for sinon:"
Dim intCompteur As integer
intCompteur= "numero de la ligne qui contient le premier resultat"
'boucle de recherche des max:
do while not (isEmpty(Range ("A" & intCompteur).Value))
if Range ("A" & intCompteur).Value>intMax1 then
intMax1=Range ("A" & intCompteur).Value
ElseIf Range ("A" & intCompteur).Value>intMax2 then
intMax2=Range ("A" & intCompteur).Value
EndIf
intCompteur= intCompteur+1
Loop
PS si tu veux plus d aide précise plus
)
ciao