Sub LesFeuillesMois1()
Dim ws As Worksheet
'
' Parcourir uniquement les feuilles dont les noms sont dans le tableau
For Each ws In ThisWorkbook.Worksheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre"))
'
' Faire le travail sur la feuille
With ws
Debug.Print .Name
End With
Next
End Sub
Sub LesFeuillesMois2()
Dim ws As Worksheet
Dim LesMois As Variant
'Création d'un tableau contenant les noms de mois
'par éclatement d'une chaine de caractère.
LesMois = Split("Janvier;Février;Mars;Avril;Mai;Juin;Juillet;Août;Septembre;Octobre;Novembre;Décembre", ";")
'
'Parcourir toutes les feuilles de travail du classeurs
For Each ws In ThisWorkbook.Worksheets()
' Si le nom de la feuille fait partie du tableau LesMois
' (Utilisation de l'équivalent VBA de la fonction de feuille Equiv)
If Not IsError(Application.Match(ws.Name, LesMois, 0)) Then
'faire le travail sur la feuille
With ws
Debug.Print .Name
End With
End If
Next
End Sub