Sub ChercheNom()
Nom = [G7] ' Récupère le nom à trouver
Set Plage = Range("A1:A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row) ' Définit la plage de recherche
If Application.CountIf(Plage, Nom) > 0 Then ' Le nom existe t-il
L = Application.Match(Nom, Plage, 0) ' Si oui, à quelle ligne
[H7] = L ' Mettre le N° de ligne
[I7] = Cells(L, "B") ' Mettre l'age
Else
[H7:I7].ClearContents ' Sinon on efface
End If
End Sub