Bonjour à tout le forum !

Dans mon classeur, je souhaite très bêtement appliquer une mise en forme à certaines feuilles, plus particulièrement celles dont le nom est un chiffre/nombre.
NB: ces feuilles ont été créées et nommées par macro.

Voici 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
Sub style_numbered_sheets()
Dim sh As Worksheet
 
Application.ScreenUpdating = False
 
    For Each sh In ThisWorkbook.Worksheets
        If IsNumeric(sh.Name) Then
                sh.Activate
                With ActiveWindow
                    .SplitRow = Range("A1").Row 
                    .FreezePanes = True
                End With
                Columns("A:G").Select
                Selection.AutoFilter
                Columns("C:D").EntireColumn.AutoFit
                Columns("F:G").EntireColumn.AutoFit
        End If
    Next sh
 
Application.ScreenUpdating = True      
End Sub
Ce que je ne comprends pas c'est que j'ai déjà utilisé cette méthode (celle du IsNumeric (sh.Name)) ; d'ailleurs, au sein de ce même classeur j'ai créé une petite macro qui supprime toute feuille dont le nom est un chiffre/nombre, hé bien j'ai justement utilisé IsNumeric(sh.Name) et ça fonctionne très bien !

Je ne comprends pas.

Merci d'avance pour votre aide !

Kaera*