Insertion étiquette en fonction de la cellule active

bonjour

je souhaiterai qu une étiquette vienne s' insérer à l' endroit ou se trouve ma cellule active et à chaque fois que j appui sur le bouton qui insère cette étiquette

merci d' avance

Bonjour,

Pour positionner l'etiquette à partir de la cellule active .

H = ActiveCell.Left '<-- position horizontale
V = ActiveCell.Top '<-- position verticale
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, H, V, 480, 17.25).Select

A+

merci c est parfait c est tout a fait ce que je voulais