Bonsoir,
Réécrit (comme il est toujours nécessaire de réécrire une macro enregistrée, et complétée sur ta demande).
Le résultat est un objet Shape tout à fait invisible !
With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 38, 92, 32, 25)
.Name = "Ma_zone"
.Fill.Transparency = 1#
With .Line
.Transparency = 1#
.Visible = msoTrue
End With
With .TextFrame.Characters
.Text = "01"
With .Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 15
.ColorIndex = xlColorIndexNone
End With
End With
End With
Sans savoir en quoi consiste ton projet, si la méthode était destinée à le rendre invisible, pour le rendre visible, il faudra inverser toutes les propriétés... alors que défini de la façon dont tu veux le voir si tu le rends visible, tu n'avais qu'à jouer ensuite avec la propriété Visible de l'objet en pouvant alterner False et True.
Et avec un avantage supplémentaire : même ne le voyant pas tu risques de l'accrocher (le sélectionner donc) avec la souris sans le vouloir, ce qui ne serait pas le cas si c'est l'objet lui-même qui n'est pas visible...
Cordialement.