Salut le forum

J'ai plusieurs feuilles et parmi ces feuilles je souhaite agir sur certaines.
J'ai essayé de réaliser ce code mais il ne marche pas.
Pouvez-vous l'apprécier pour moi?
En effet, je cherche à réaliser une mise en forme de certaines cellules de mes feuilles mais pas toutes.
Il s'agit des feuilles dont les noms (onglets) contiennent le mot TBC.
Ci-dessous mon 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
49
50
Sub Format()
'
Dim Feuille As Worksheet
 
For Each Feuille In Worksheets
If InStr(1, Feuille.Name, "TBC") > 1 Then
 
Feuille.Select
    Range("G22:G24,I22:I24,K22:K24,M22:M24,O22:O24,Q22:Q24").Select
    Range("Q22").Activate
    ActiveWindow.SmallScroll ToRight:=2
    ActiveWindow.SmallScroll Down:=18
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("K25").Select
End If
On Error Resume Next
Next
End Sub