Impossible de modifier le contenu d'un label

Bonjour,

Je me heurte à un label. Je voudrais changer par macro son contenu (ce qui y est écrit) en fonction des événements.

Le label s'appelle : "EtiquetteIdioma"

Sub zaza()

Dim idioma As String

Select Case [NumChxLangue].Value
Case 1: idioma = "Langue"
Case 2: idioma = "Language"
Case 3: idioma = "Idioma"
End Select

ActiveSheet.Shapes("EtiquetteIdioma").Select
Selection.Caption = idioma

End Sub

Apparaît à chaque fois un message d'erreur.

Un grand merci pour m'expliquer où je me suis planté.