Déjà pour rertouver ta ligne, tu dois utiliser un finder comme suit:
Dim zone as range, finder as range, cherche as (ça dépend), ligne as long
Set zone = Columns(3) 'nous allons chercher dans la colonne 3 (pour mon exemple)
Set finder = zone.Cells.Find(what:=cherche, lookAt:=xlWhole) 'le "cherche"
ligne=finder.rows
Après, ça dépend effectivement de ce que tu veux chercher...
Pour l'annotation regarde la fonction Range.NoteText!