Simplification bordure vba

Bonjour à tous!

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

Pensez-vous qu'il est possible de simplifier?

Code:

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

Bonjour Barbeaua
Essayes ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
 For i = 1 To 46
    If i =< 12 or i=21 or i = 26 or i = 27 or i = 33 or i >= 45 then
           .Range(.Cells(i, j), .Cells(i, j + 3)).BorderAround _
           ColorIndex:=1, Weight:=xlThin
    end if
Next i
 
For i = 1 To 53
      .Range(.Cells(i, j + 1), .Cells(i, j + 1)).Borders(xlEdgeLeft).LineStyle = xlContinuous
      .Range(.Cells(i, j + 2), .Cells(i, j + 2)).Borders(xlEdgeLeft).LineStyle = xlContinuous
Next i

La suite doit être simplifiable également mais cela ne me saute pas aux yeux a première vue et puis ce que j'ai fais peut surement l'etre aussi ;)
Eric

Merci

C'est déjà beaucoup merci! :)