Bonsoir Stt, le Forum
Pas vraiment sûr d'avoir compris, si un code récupère le Nom des Feuilles Une à Une de ton Classeur soit par une boucle, je ne vois pas ce qu'une boucle supplémentaire de vérification pourras trouver comme différence ? En plus il n'est pas vraiment nécessaire de faire une "Array" pour ceci, mais bon... Pour le Fun voici un code, (j'envoie le résultat dans le Debug.Print) :
Sub ArrayDesFeuilles()
Dim MyArray() as String
Dim i As Byte
For i = 1 To Worksheets.Count
ReDim Preserve MyArray(i)
MyArray(i) = Worksheets(i).Name
Next
'(activer la fenêtre d'exécution pour le Débug.print)
For i = 1 To UBound(MyArray)
Debug.Print MyArray(i)
Next
End Sub
Ceci dit un code comme çà liste tes feuilles tout aussi bien sans avoir besoin de faire une Array :
Sub ListFeuilles()
Dim WS As Worksheet
Dim Msg As String
For Each WS In Worksheets
Msg = Msg & WS.Name & vbCrLf
Next
MsgBox "Voici Les Feuilles " & vbCrLf & Msg
End Sub
Bon travail et bonne soirée
@+Thierry