Bonjour à tous les forum activistes sans qui le VBA serait encore impénétrable pour moi.

D'habitude je trouve toujours de quoi me sortir d'affaire avec toute la ressource disponible sur ce forum, mais là...

Je cherche à alléger le temps de calcul de mon code et cherche à supprimer les ".Select"

Ainsi, pour mettre en forme une plage j'en suis à cette forme de code qui apparement ne tient pas compte du "End(xlDown".
Est ce qu'il est incompatible avec une boucle with ou est ce qu'il y a une subtilité qui m'échappe?

Merci d'avance pour votre aide précieuse.

Le code :

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
40
41
42
43
44
45
46
47
48
With Sheets("Synthèse").Range("B12:GE12").End(xlDown)
 
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
 
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
 
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
 
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
 
        With .Borders(xlEdgeRight).LineStyle = xlContinuous
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
 
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ThemeColor = 1
            .TintAndShade = -0.499984740745262
            .Weight = xlThin
        End With
 
        With .Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ThemeColor = 1
            .TintAndShade = -0.249946592608417
            .Weight = xlThin
        End With
 
    End With