Petite Macro avec test et textbox

Public Function FeuilleExiste(nomFeuille As String) As Boolean
Dim curSheet As Worksheet
FeuilleExiste = False
For Each curSheet In ThisWorkbook.Sheets
    If curSheet.Name = nomFeuille Then FeuilleExiste = True: Exit Function
Next curSheet
End Function


Public Sub MacroY()
If FeuilleExiste("Feuil1") Then
    'lancer MacroX
Else
    MsgBox "la feuille n'existe pas"
End If
End Sub

Dim curSheet As Worksheet
'on initialise le retour de la fonction à "False" (on suppose que la feuille n'existe pas)
FeuilleExiste = False
'boucler sur l'ensemble des feuilles du classeur
For Each curSheet In ThisWorkbook.Sheets
    'si la feuille courante a le bon nom, la fonction retourne "True" et on quitte la fonction
    If curSheet.Name = nomFeuille Then FeuilleExiste = True: Exit Function
Next curSheet
End Function


Public Sub MacroY()
'ici on appelle la fonction "FeuilleExiste", on va tester si une feuille nommée "Feuil1" existe dans le classeur
'si c'est le cas, la fonction va retourner "True" et on va "rentrer dans le If"
If FeuilleExiste("Feuil1") Then
    'lancer MacroX
Else 'sinon (la feuille n'existe pas), afficher le message
    MsgBox "la feuille n'existe pas"
End If
End Sub