Macro pour position de texte

Pour effectuer des consolidations, il me fallait récupérer des tableaux de ventes en provenance de différents classeurs.

Dans chacun, il fallait identifier le numéro de la ligne et de la colonne où l’on trouvait le mot « Ventes 2007 » qui était toujours placé dans le coin supérieur gauche du bloc de données à consolider.

J’ai pour cela créé une fonction macro pour récupérer la position du mot recherché.

En B1, j’ai utilisé la formule :
=ligne(indirect((Découvre("Ventes 2007"))))

En B2, j’ai utilisé la formule :
=colonne(indirect((Découvre("Ventes 2007"))))

Et voici la fonction macro Découvre :

Function Découvre(Texte)
Découvre = ActiveSheet.Cells.Find(What:=Texte, _
LookAt:=xlWhole, MatchCase:=True).Address
End Function