Macro - copier zone de texte

Bonjour à tous,

Je me trouve confronté à un bête problème.

Je voudrais copier le contenu qui se trouve dans une zone de texte et le coller dans une cellule.

Voir mon fichier en pj.

Ma zone de texte est en orange pour vous repérer et je voudrais coller via une macro son contenu dans la cellule L3.

Ca ne fonctionne qu'une fois.

Le contenu de la zone texte est amené à changer souvent mais ma macro me copier toujours la même phrase...

Merci pour vos lumières

Bonjour,

A tester

Sub Macro1()
  ActiveSheet.Shapes("Text Box 1").Select
  Range("L3").Value = Selection.Characters.Text
  Range("L3").Select
End Sub

Ca fonctionne!

Mille mercis!