Recherche d'une valeur dans la cellule excel correspondant à une option présente dans une autre cellule

Comment puis-je searchr une valeur dans la cellule Excel correspondant à une option présente dans une autre cellule?

J'ai une cellule qui a datatables suivantes:

A. Cat B. Dog C. Elephant D. Rat 

et d'autres cellules ont des données – B

Maintenant, j'ai besoin d'écrire une macro qui récupérera la valeur correspondant à l'option B , c.-à-d.

Obtenez la valeur de la cellule:

 Dim val as Ssortingng val = Sheets(nameofsheet).Cells(row,column) 

Définissez la plage où vous souhaitez searchr

 Dim rng as Range Set rng = Sheets(nameofsheet).Range(cell1, cell2) 

Obtenez le résultat avec la méthode .Find

 Dim result as Range Set result = rng.Find(val, lookin:=xlValues, lookat:=xlWhole)