Optimiser un code - Renvoyer l'adresse d'une cellule

Bonjour,

J'ai un fichier contenant deux onglets "Formulaire" et "Data".

Je voudrais envoyer l'adresse de cellules spécifiques (selon les en-têtes de "Data") de "Formulaire" à "Data".

Quelques adresses voulues sont une case à droite et l'autre possibilité est qu'ils sont une case en dessous.

J'ai fais un début de code, mais je me demandais s'il existait une façon d'optimiser cela.

Merci!

Cordialement.

Bonjour,

à tester,

Sub TestAdresse()
For Each c In Sheets("Data").Range("A1:" & Cells(1, Columns.Count).End(xlToLeft).Address)
Sheets("Data").Cells(2, c.Column) = Sheets("Formulaire").Cells.Find(What:=c, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False).Address
Next
End Sub

Bonjour!

Cela fonctionne à merveille.

Merci beaucoup! (J'étais entrain de coder ça tout au long )