[jmps]

Bonjour kokito,

tu peux récupérer le nom comme ça :

Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set un = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2)
MsgBox un.Name

Bonne journée.