Changer nom de légende d'un graphique

Bonjour, j'essaie via macro de changer le nom de légende de mon graphique mais ça ne marche pas.

Voici mon code:

ActiveSheet.ChartObjects("Graphique").Activate
    ActiveChart.Legend.Select
ActiveChart.Legend = Range("E4").Value

Je vous mets en lien l'image