Bonjour,
Il n'y a pas besoin de VBA pour réaliser cette tâche. Vous avez plusieurs possibilités de formule :
1. RECHERCHEV(ValeurCherchée;TableauDeCorrespondance;PositionDuRésultat;0)
ValeurCherchée : correspond au nom de la personne (par exemple A1).
TableauDeCorrespondance : Tableau de correspondance avec la liste des éléments cherchés en 1ère colonne et englobant aussi la liste des informations à renvoyer (par exemple pour vous, ce sera quelque chose du genre Feuil1!$A$1:$B$16).
PositionDuRésultat : Si le résultat à renvoyer ce trouve sur la colonne juste à droite (ex: colonne B) de la liste des éléments cherchés (ex: colonne A), il faudra écrire 2.
2. INDEX(ListeDesRésultats;EQUIV(ListeDesElémentsCherchés;ElémentCherché;0))
ListeDesRésultats : Feuil1!$B$1:$B$16 dans votre cas
ListeDesElementsCherchés : Feuil1!$A$1:$A$16 dans votre cas
ElementCherché : nom de la personne (par exemple A1)
PS : EQUIV donne la position d'un élément cherché dans une liste. INDEX donne l'élément situé en Nième position d'une liste.
3. MOYENNE.SI(ListeDesElémentsCherchés;ElémentCherché;ListeDesRésultats)
Si l'élement cherché est unique (pas de nom en doublon) et le résultat cherché est numérique, on peut utiliser les fonctions MOYENNE.SI, SOMME.SI, MOYENNE.SI.ENS ou encore SOMME.SI.ENS.
Les arguments correspondent à ceux du point 2.
Si tout n'est pas clair, joignez directement votre fichier en anonymisant les noms.