Parcourir certaines feuilles

Sub test1()
    'Dans tout nos programmes, i parcourt les lignes et j les colonnes
    Dim i As Long
    'k sert a parcourir les lignes dans la feuil23
    Dim k As Long
    Dim fl As Worksheet
    
    'L'idée est de parcourir les feuilles
    k = 2
    For Each fl In Worksheets
        i = 2
        If fl.Name <> "Feuil4" Then     'si nom de l'onglet, pas nom feuille (fenetre VBA)
            While fl.Cells(i, 9).Value <> ""
                Worksheets("Feuil4").Cells(k, 2).Value = fl.Cells(i, 9).Value
                i = i + 1
                k = k + 1
            Wend
        End If
    Next fl
End Sub

For Each fl In thisWorkbook.Worksheets