Macro VBA pour extraction des données en en têtes

Bonjour à tous,

Je solicite votre aide car je n'arrive pas à extraire les données en têtes (location) en fonction d'une cellule non vide dans la plage de donnée. J'ai essayé une rechercheV et index equiv mais sans succès. Je vous joint le fichier Excel pour plus de détail.

Merci d'avance pour votre aide,

Cordialement,