bonjour au forum,

J'ai un certains nombres de cellules dont je souhaite colorier en blanc avec bordure. Le code ci-dessous fonctionne mais ça rame.

Est-ce que je procède correctement ou peut-on faire mieux sans que cela rame ?
(je n'ai pas essayé encore essayer d'enlever application qui rafraichit par false puis remettre à true je ne me souviens plus de l'application.????)

Merci par avance pour votre aide

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
 For i = 0 To 17 'incrémente le nombre de case à afficher ici i=0 correspond à cellule B9
 If Not ((i = 2) Or (i = 6) Or (i = 13) Or (i = 16)) Then
 Range("B9").Offset(0, i).Interior.ColorIndex = 2
 With Range("B9").Offset(0, i).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.14996795556505
        .Weight = xlThin
    End With
    With Range("B9").Offset(0, i).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.14996795556505
        .Weight = xlThin
    End With
    With Range("B9").Offset(0, i).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.14996795556505
        .Weight = xlThin
    End With
    With Range("B9").Offset(0, i).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.14996795556505
        .Weight = xlThin
    End With
 End If
 Next i