Recherche de l'existence d'une feuille

Sub Test_Feuille()

    Dim NomFeuille As String, Reponse As Boolean
    
    NomFeuille = "Feuil4"
    Reponse = FeuilleExiste(NomFeuille)
    MsgBox Reponse
    
End Sub
'

Function FeuilleExiste(MaFeuille As String) As Boolean

    Dim Feuille As Worksheet
    
    FeuilleExiste = False
    For Each Feuille In Worksheets
        If (Feuille.Name = MaFeuille) Then
            FeuilleExiste = True
        End If
    Next Feuille
    
End Function
'

dim i as integer
dim b_existe as boolean

For i = 1 To Sheets.Count 
    if Sheets(i).Name = "nomrecherché" then
       b_existe = true
    end if
next