XL 2016 Rendre plus lisible un code VBA

[ReneDav14000]

Bonsoir le forum,
J'ai fait le code suivant un peu (beaucoup) à l'arrache, est-ce que vous pourriez m'aider à le rendre plus lisible s'il vous plait ?
Désolé pour le puriste, il est vrai que comme ça ce n'est pas beau.
Merci par avance pour votre aide

Sub bordure()
'
' bordure Macro
'

    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    
        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
    
    Range("B8").Select
End Sub
Sub entete()
'
' entete Macro
'

    Range("D4").Select
    Application.PrintCommunication = False
    
        With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
        End With
        
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    
     With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    
    Application.PrintCommunication = True
End Sub

 

[ReneDav14000]

Re

@ReneDav14000
Quid de mon bout de code du message#10?
Il borde comme les autres, pourtant

Désolé mais lui non plus ne sert à rien. Je ne sais pas comment je me suis débrouillé, avoir 2 appli ouvertes en même temps ce n'est pas le bon plan.
Toutes mes excuses

 

[Staple1600]

Re

@ReneDav14000
Euh? Il sert à quelque chose
Car il fait exactement la même chose que ce fait ta macro Bordures du message#1 !
Sauf que je n'ai besoin que d'une ligne de code pour ce faire.

NB: je suppose que tu ne l'avais pas testé ?

 

[TooFatBoy]

Bonjour,

Désolé, mais j'ai fait une erreur.

Je voulais essayer de donner un coup de main, mais j'ai rien compris...
Où est l'erreur : dans la question ? dans le code ? dans le fichier fourni au départ ?

 

[ReneDav14000]

Bonjour,


Je voulais essayer de donner un coup de main, mais j'ai rien compris...
Où est l'erreur : dans la question ? dans le code ? dans le fichier fourni au départ ?

L'erreur vient de moi lorsque j'ai pris un code d'une autre application.

 

[TooFatBoy]

L'erreur vient de moi lorsque j'ai pris un code d'une autre application.

Oui, ça j'avais compris, mais où ??? Dès le début, dans la question ?

 

[ReneDav14000]

Oui, ça j'avais compris, mais où ??? Dès le début, dans la question ?

Dès le début, en fait je n'aurai jamais du poser la question ni mettre ce code.

 

[Staple1600]

Re

@ReneDav14000
Peu importe
Rien de t'empechait pour ta gouverne ou ta curiosité de tester tous les codes qu'on a t'a proposé pour mettre des bordures sur des cellules.

 

[ReneDav14000]

Re

@ReneDav14000
Peu importe
Rien de t'empechait pour ta gouverne ou ta curiosité de tester tous les codes qu'on a t'a proposé pour mettre des bordures sur des cellules.

Je comprends, mais je n'en avais pas besoin. Je n'utilise plus l'application d'où provient le code.
Merci à ceux qui m'ont répondu et toutes mes excuses.

 

[TooFatBoy]

Dès le début, en fait je n'aurai jamais du poser la question ni mettre ce code.

OK.

Merci pour cet éclaircissement.