Bonjour à tous,
Un essai ... à placer dans "ThisWorkbook" ... délais de 10 secondes ...
Private Sub Workbook_Open()
Range("A1").Activate
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 1600, 900).Select
Selection.Name = "TextBrouille"
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorLight1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0.15
.Solid
End With
Range("A1").Activate
Application.Wait Now + TimeValue("00:00:10")
ActiveSheet.Shapes("TextBrouille").Delete
End Sub
ric