kokito

Merci à tous, j'ai trouvé la solution grace à vos
le voila :

Dim a As String
Set ici = ActiveCell
a = ActiveCell.Text
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set un = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2)

un.Select
Selection.Text = a

merci encore