Bonjour à tous!

J'ai un code un petit peu long pour mes bordures..

Pensez-vous qu'il est possible de simplifier?

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
' Mise en place des bordures
      For i = 1 To 12
      .Range(.Cells(i, j), .Cells(i, j + 3)).BorderAround _
      ColorIndex:=1, Weight:=xlThin
      Next i
      .Range(.Cells(21, j), .Cells(21, j + 3)).BorderAround _
      ColorIndex:=1, Weight:=xlThin
      For i = 26 To 27
      .Range(.Cells(i, j), .Cells(i, j + 3)).BorderAround _
      ColorIndex:=1, Weight:=xlThin
      Next i
      .Range(.Cells(33, j), .Cells(33, j + 3)).BorderAround _
      ColorIndex:=1, Weight:=xlThin
      For i = 45 To 46
      .Range(.Cells(i, j), .Cells(i, j + 3)).BorderAround _
      ColorIndex:=1, Weight:=xlThin
      Next i
      For i = 1 To 53
      .Range(.Cells(i, j + 1), .Cells(i, j + 1)).Borders(xlEdgeLeft).LineStyle = xlContinuous
      Next i
      For i = 1 To 53
      .Range(.Cells(i, j + 2), .Cells(i, j + 2)).Borders(xlEdgeLeft).LineStyle = xlContinuous
      .Range(.Cells(i, j + 2), .Cells(i, j + 2)).Borders(xlEdgeRight).LineStyle = xlContinuous
      Next i
      .Range(.Cells(1, j), .Cells(60, j + 3)).BorderAround _
      ColorIndex:=1, Weight:=xlThick
      .Range(.Cells(54, j + 1), .Cells(60, j + 2)).BorderAround _
      ColorIndex:=1, Weight:=xlMedium
      .Range(.Cells(5, j), .Cells(12, j + 3)).BorderAround _
      ColorIndex:=1, Weight:=xlMedium
      .Range(.Cells(28, j), .Cells(44, j + 3)).BorderAround _
      ColorIndex:=1, Weight:=xlMedium
      .Range(.Cells(45, j), .Cells(49, j + 3)).BorderAround _
      ColorIndex:=1, Weight:=xlMedium
      .Range(.Cells(50, j), .Cells(53, j + 3)).BorderAround _
      ColorIndex:=1, Weight:=xlMedium
      .Range(.Cells(60, j + 1), .Cells(60, j + 2)).Borders(xlEdgeBottom).LineStyle = xlNone
      .Range(.Cells(53, j), .Cells(53, j)).Borders(xlEdgeBottom).LineStyle = xlNone
      .Range(.Cells(53, j + 3), .Cells(53, j + 3)).Borders(xlEdgeBottom).LineStyle = xlNone
Merci d'avance!

Antoine