Sub Macro1()
Dim BE As Variant 'déclare la variable BE (Boîte d'Entrée)
Dim C As Object 'déclare la variable C (Composant)
Dim TEXT As String 'déclare la variable TEXT
Dim TEST As Boolean 'déclare la variable TEST
'définit la boîte d'entrée BE
BE = Application.InputBox("Taper le nom de l'UserForm à vérifier.", "Vérifier l'existence d'une UserForm", Type:=2)
If BE = False Or BE = "" Then Exit Sub 'si bouton [Annuler] ou non renseignée, sort de la procédure
For Each C In ActiveWorkbook.VBProject.VBComponents 'boucle sur tous les composants de ce classeur
'si le nom du composant est identique à BE (tous les deux convertis en Majuscules), définit la variable TEST, sort de la boucle
If UCase(C.Name) = UCase(BE) Then TEST = True: Exit For
Next C 'prochain composant de la boucle
'définit la variable TEXT
TEXT = IIf(TEST = True, "Cette UserForm existe dans ce classeur !", "Cette UserForm n'existe pas dans ce classeur !")
MsgBox TEXT 'affiche TEXT
End Sub