Définir les coordonnées d'une cellule en VBA

Bonjour,

J'ai récupéré un tableur dont les fonctions correspondent à peu près à mes désirs.

Dans le code, je n'arrive pas à définir les coordonnées de la cellule dont je veux récupérer le contenu:

Par rapport à une cellule variable dans un champ, il faut demander à restituer le contenu de la ligne 2 de la même colonne.

J'ai testé plusieurs codes sans succès, que j'ai laissé en commentaire dans le module sur le document joint

Je vous remercie par avance de votre aide

bonjour,

si j'ai bien compris (à tester)

Function RechercheTous(champ As Range, valeurCherchee)
  Application.Volatile
  Dim Temp(1 To 100)
  k = 0
  For Each c In champ
    If c.Value = valeurCherchee Then
      k = k + 1
      Temp(k) = Cells(2, c.Column)
        End If
  Next c
  RechercheTous = Application.Transpose(Temp)
End Function

La formule affiche un message d'erreur circulaire

Bonjour

Je traine

A tester

Super !

merci beaucoup pour votre réactivité.