Bonjour gmb, merci pour l'essai
J'ai une erreur 91 Variable ou Variable bloc with non définie sur cette ligne lors de l'exécution du code
Set cell = fb.Range("B:B").Find(Target.Value, lookat:=xlWhole)
edit: J'ai de mon côté étudié l'option hypertexte mais on ne peut pas parvenir à la cellule en question , au mieux à une feuille choisie