requettes sur plusieurs feuilles exel

Sub ScannerLesFeuilles_Methode_1()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
    If WS.Range("A1") = "Toto" Then
        MyTest = MyTest & WS.Name & " Glop Glop" & vbCrLf
    Else
        MyTest = MyTest & WS.Name & " Pas Glop" & vbCrLf
    End If
Next WS
MsgBox MyTest
End Sub

Sub ScannerLesFeuilles_Methode_2()
Dim x As Byte
For x = 1 To ThisWorkbook.Worksheets.Count
    If Worksheets(x).Range("A1") = "Toto" Then
        MyTest = MyTest & Worksheets(x).Name & " Glop Glop" & vbCrLf
    Else
        MyTest = MyTest & Worksheets(x).Name & " Pas Glop" & vbCrLf
    End If
Next x
MsgBox MyTest
End Sub