Bonjour,
Tu peux utiliser la méthode .find :
if Cells.Find(What:="ta référence", After:=range("taplagededonnées") , LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) is nothing then
range("tacellulederésultat")= "lerésultat"
else exit sub
end if
Pour sélectionner ta plage de recherche, tu peux faire comme ceci : on dira pour l'exemple que je souhaite sélectionner toutes les données de la colonne A, à partir de A1 et jusqu'à la ligne précédente à ma cellule active :
Range("a1", Range("a" & ActiveCell.Row - 1)).Select
J'espère que cela te conviendra
Bonne journée