MACRO Blocage dans sa modification

Bonjour à vous

Bloquée au niveau d'une macro que je voulais la modifier et je sollicite votre aide

Cette Macro est bien fonctionnelle, sauf qu'elle parcourt toutes les feuille de mon classeur, ce qui provoque des fois une erreur quand elle lit une date sur une feuille autre que les suivantes

Donc, Je veux la limiter sur les feuil suivantes ("JAN", "FEV", "MAR", "AVR", "MAI", "JUIN", "JUIL", "AOU", "SEP", "OCT", "NOV", "DEC")

J'ai essayé toutes les combinaisons avec Array, mais sans succès. Alors je me trouve obligée de faire recours à votre compétence.

Dim oShSource As Worksheet 
          Dim sOngSource As String

sOngSource = ""
    For Each oShSource In Worksheets 'parcours de tous les onglets
        If IsDate(oShSource.Range("E9").Value) Then
            If Month(oShSource.Range("E9").Value) = piMois Then
                sOngSource = oShSource.Name
            End If
        End If
    Next oShSource

Merci d'avance

Bonjour Noura, bonjour le forum,

Peut-être comme ça :

Dim oShSource As Worksheet
Dim sOngSource As String

sOngSource = ""
For Each oShSource In Worksheets 'parcours de tous les onglets
    Select Case oShSource.Name
        Case "JAN", "FEV", "MAR", "AVR", "MAI", "JUIN", "JUIL", "AOU", "SEP", "OCT", "NOV", "DEC"
            If IsDate(oShSource.Range("E9").Value) Then
                If Month(oShSource.Range("E9").Value) = piMois Then
                    sOngSource = oShSource.Name
                End If
            End If
    End Select
Next oShSource

Bonjour ThauTheme, le forum

C'est bien ça

Un grand merciiiiiiiiiiiiiii

Cordialement