Sub Show_Info()On Error Resume Next
[Demo_Texte].Visible = Not [Demo_Texte].Visible
If Err Then
With ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangularCallout, ActiveSheet.UsedRange.Width / 2, ActiveSheet.UsedRange.Height / 2, 100, 100)
.Name = "Demo_Texte"
.Fill.ForeColor.RGB = RGB(255, 255, 204)
.Line.ForeColor.RGB = RGB(0, 0, 0)
.Line.Weight = 0.75
With .TextFrame2
.VerticalAnchor = msoAnchorMiddle
.HorizontalAnchor = msoAnchorNone
.MarginLeft = 0
.MarginRight = 0
.MarginTop = 0
.MarginBottom = 0
.TextRange.Characters.Text = "Coucou"
.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
.TextRange.ParagraphFormat.Alignment = msoAlignCenter
.AutoSize = msoAutoSizeShapeToFitText
End With
.Visible = True
End With
End If
End Sub