Bonjour le forum

J'ai attrapé une routine sur le net pour tracer les bordures d'un tableau.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With rng
            For b = xlDiagonalDown To xlInsideHorizontal '
               Select Case b
                    Case xlEdgeLeft To xlEdgeRight '
                        .Borders(b).LineStyle = xlDouble
                        .Borders(b).Weight = xlThin
                    Case xlInsideHorizontal
                        .Borders(b).LineStyle = xlContinuous
                        .Borders(b).Weight = xlThin
                    Case xlInsideVertical
                        .Borders(b).LineStyle = xlContinuous
                        .Borders(b).Weight = xlThin
                    Case Else
                        .Borders(b).LineStyle = xlNone
                End Select
            Next b
      End With
Dans le "For b" le code semble passer par toutes les lignes possible.
Est-ce que quelqu'un pourrait me donner la séquence en ordre des lignes ?
C-A-D est-ce que XlEdgeRight vient avant XLEdgeTop ainsi de suite.

Merci