Copier les données d'une colonne en fonction de son en-tête

Bonjour à tous.

Je bloque sur une situation où je dois faire du VBA en utilisant l'équivalent de la fonction index ou recherche.

Pour être plus clair, je joins un fichier dans lequel je souhaite :

coller dans la colonne E de E13 à E106 (Feuille "Panorama FM") des données issues d'une colonne de la feuille "Formules santé existantes" en fonction de la sélection faite en E12. Contrainte :

J'ai enregistré des bouts de vba, mais je ne sais pas comment les assembler.

Sub Copie_des_formules_existantes()
'
' Copie_des_formules_existantes Macro
'

'
    Range("B4:B95").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Panorama FM").Select
    Range("E14").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Merci pour votre aide déjà précieuse

Martin

Bonjour,

à tester,

Sub Copie_des_formules_existantes()
Set sh1 = Sheets("Panorama FM")
Set sh2 = Sheets("Formules santé éxistantes")
col = Application.Match(sh1.Range("E12"), sh2.Rows(1), 0)
addr = Range(Cells(4, col), Cells(95, col)).Address
sh2.Range(addr).Copy
With sh1
 .Range("E14").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
End Sub