Bonjour jalaba, le Forum,
Bonne journée à toutes et à tous
@ jalaba : bienvenue
Peut-être comme àa :
Dans votre "Sub Schema", j'ai neutralisé le code 'Application.CommandBars("Selection and Visibility").Visible = False
Voir fichier en retour,
Amicalement,
lionel,
le beug persiste
Sub Schema()
Range("I11").Select
Sheets("Schema").Select
'Application.CommandBars("Selection and Visibility").Visible = False
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.Group.Select
Selection.ShapeRange.IncrementRotation 90
Selection.ShapeRange.ScaleHeight 2.2747807708, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.2479514048, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.TextFrame2.Orientation = msoTextOrientationUpward
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
msoAlignCenter
Rows(1).Insert
Rows(2).Insert
Selection.ShapeRange.ScaleWidth 0.5999999067, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.749699556, msoFalse, msoScaleFromBottomRight
ActiveWindow.SmallScroll Down:=-60
End Sub