Boucler sur des feuilles de calcul

Bonjour,

le code suivant permet de boucler sur toutes les feuilles du classuer "wb" afin de trouver le même jour (nom de la feuille) , pour cela j'ai utilisé la boucle " For Each Ws In wb.Worksheets ... Next Ws"

                Set wb = Workbooks.Open("C:\Users\\Desktop\semaine.xlsx")

                '           boucler sur toutes les feuilles du fichier

                Dim Ws As Worksheet

                For Each Ws In wb.Worksheets
                    'Renvoie le nom de chaque feuille

                    If Ws.Name = JSem(Cells(1, 6)) Then

                        MsgBox ("on a trouvé le même jour")

                    End If

                Next Ws

                wb.Close

Je me demandais tout simplement s'il est possible d'avoir l'équivalent avec la boucle While qui sera plus propre et plus rapide je pense

merci

Bonsoir Awa, bonsoir le forum,

Pourquoi continuer la boucle quand je jour est touvé ?

Sub Macro1()
Dim wb As Workbook
Dim Ws As Worksheet

Set wb = Workbooks.Open("C:\Users\\Desktop\semaine.xlsx")
For Each Ws In wb.Worksheets
    If Ws.Name = JSem(Cells(1, 6)) Then
        MsgBox ("on a trouvé le même jour")
        wb.Close
        Exit Sub
    End If
Next Ws
End Sub

ou

Sub Macro1()
Dim wb As Workbook
Dim Ws As Worksheet

Set wb = Workbooks.Open("C:\Users\\Desktop\semaine.xlsx")
For Each Ws In wb.Worksheets
    If Ws.Name = JSem(Cells(1, 6)) Then
        MsgBox ("on a trouvé le même jour")
        Exit For
    End If
Next Ws
wb.Close
End Sub