Mise en page a simplifier via VBA

Bonjour,

Vous trouverez en pièce-jointe une trame de la feuille que je détient avec une mise en page que je souhaiterai optimisé via du code VBA, car c'est quelque chose d'automatisé. Lorsque la couleur est différente c'est que cela correspond à un autre extraction de SAP que la macro copie-colle d'une autre feuille au préalable.

En espérant avoir été clair !

Merci d'avance !

Salut,

Relis ton message et mets toi à notre place ?!!!

Si quelqu'un arrive à te faire quoi que ce soit c'est un génie !

Essaie de nous ré-expliquer ce que tu cherches à "Optimiser"

Girodo,

C'est vrai que c'est pas très clair, le problème étant que je suis un débutant en VBA et macro

J'ai en faite récupérer un classeur Excel contenant deux feuilles, une feuille d'où est importé l'extraction SAP avec de nombreuses données. Après cela une macro entre en jeu (celle ci à été faite avec l'enregistreur de macro) censé simplifié l'extraction pour pouvoir avoir ce qui nous intéresse, vient enfin à la fin la mise en page du tableau final (la seconde feuille déjà optimiser c'est à dire avec moins de colonnes, pas de doublons et un ordre adapté).

Je voulais moi avoir une mise en page simple car sur l'exemple (qui est le tableau final sans les données) il y a trop de couleurs qui veulent rien dire, je veux avoir une mise en page unique en code VBA.

Est-ce plus concis?

Le code en question que je cherche à changer et que je ne comprend guère :

If [AA3] <> "" Then
        Range(Selection, Selection.End(xlDown)).Select
        End If
        With Selection.Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent5
            .TintAndShade = 0.799981688894314
            .PatternTintAndShade = 0
        End With
        Selection.Cut
        Range("A1").Select
        Range("A65536").End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With