Bonjour à tous,
 
 
Je souhaiterai optimiser ce code généré automatiquement par Excel.
 
Cette macro permet de modifier les bordures de cellules sélectionnées.
Le 2e code est en 2 parties :
1) Il fait une ligne sur le haut
2) Changement de sélection, bordure gauche/centre/droite modifiée.
 
 
Merci pour votre aide.
 
Code 1 :
 
     Range("B2:D2" ).Select
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
            With Selection.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThick
            End With
            With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThick
            End With
            With Selection.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThick
            End With
            With Selection.Borders(xlInsideVertical)
                .LineStyle = xlDash
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
Code 2
          Range("D4:G4" ).Select
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
            With Selection.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThick
            End With
            With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThick
            End With
            With Selection.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThick
            End With
            Selection.Borders(xlInsideVertical).LineStyle = xlNone
            Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
             
            Range("E4:F4" ).Select
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
            With Selection.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThick
            End With
            With Selection.Borders(xlEdgeRight)
                .LineStyle = xlDash
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            With Selection.Borders(xlInsideVertical)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Bonjour,
 
Ce code n'est pas trop mauvais !
 
Les principaux défauts de l'enregistreur de macro sont :
- le passage par des sélections, qu'il vaut mieux éviter.
- la génération d'un code pour la feuille active, il vaut mieux définir la feuille concernée.  
 
Pour cela tu peux désigner la feuille (corriger le nom Feuil1) et éliminer les sélections inutiles comme ça :

 
           Bonjour,
 
           Si le code est situé dans le classeur contenant la feuille de calcul à modifier,
           afin de s'affranchir du problème causé par une feuille renommée,
           mieux vaut utiliser alors son CodeName : Feuil1.Range …
  

un .BorderAround 1, xlthin
mettra toutes les bordures autour

@pierrem75

Tu n'a certainement pas pris le temps de lire le code,
il y a des xlthin et des xlthick, des xlContinuous et des xlDash  !!!

Bonjour et merci pour ces réponses. Je vais tenter de mettre en pratique aujourd'hui. Je vous tiens au courant.

Tout est OK. En fait, le With remplace le "Selection". D'après ce que je lis.
 
En tout cas, merci.