Mise en page macro décentrée

Bonjour,

J'ai lancé un enregistrement de macro lors de la création de la mise en page de ma " nomenclature type " d'excel,

Lorsque je la lance, elle me dispatche tout n'importe comment ...

Connaissez_vous une solution afin d'avoir un truc propre ?

Cordialement.

Bonjour,

Ta macro à bien exécuté ce que tu as demandé de faire. Faire la mise en page de ton classeur peut être avant ou après l'avoir exécuté ?

Je reprends,

Je souhaiterai créer une macro de mise en page sous excel, comportant tous ces éléments :

Pour ce faire, j'ai lancé l'enregisteur de macro pour ensuite pouvoir l'utiliser...

L'enregisteur à enregistrer ceci :

Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveSheet.Pictures.Insert( _
        "M:\HORS SMI\COMMUNICATION\LOGO_BASELINE_CAUTION\ACT_LOGO_RGB_high.png"). _
        Select
    ActiveWindow.SmallScroll Down:=-3
    Selection.ShapeRange.ScaleWidth 0.5362891874, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.536289345, msoFalse, msoScaleFromTopLeft

    Range("A4").Select
    ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 1.2, 41.4, 72, 72). _
        Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
        "Synthèse des moyens utilisés dans le plan d'implantation : "
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 59).ParagraphFormat. _
        FirstLineIndent = 0
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 28).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(29, 31).Font
        .BaselineOffset = 0
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    Range("C6").Select
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 184.8, 4.2, 252.6, _
        34.8).Select
    Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
        "Outils d'implantation synergique "
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 33). _
        ParagraphFormat
        .FirstLineIndent = 0
        .Alignment = msoAlignCenter
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 12
        .Name = "+mn-lt"
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(7, 27).Font
        .BaselineOffset = 0
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 12
        .Name = "+mn-lt"
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText2
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.400000006
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 1.5
    End With
    ActiveSheet.Shapes.Range(Array("TextBox 5")).Select
    Selection.ShapeRange.TextFrame2.TextRange.Font.UnderlineStyle = _
        msoUnderlineSingleLine
    Range("D7").Select
End Sub

Le soucis est que une fois la macro lancé, elle me dispatche chaque élément :

C'est l'enfer surtout dans ma phase final de travail quoi ...

Quelqu'un peut-il m'aider ?