Error when i give a name to a UserForm

Hi guys,
i'am trying to creat a new UserForm with code and i would like to give it a name, here's the code, every time i receive the error code "75" error with the path...
I have trid the two codes, and i have the same error for both of them:

Sub MakeUserformFC()
    Dim TempForm As Object ' VBComponent
       Application.ScreenUpdating = False
    
'   Create the UserForm
       Set TempForm = ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
    
    'Set Properties for TempForm
    With TempForm
        .Properties("Name") = "FonctionsContraintes"
        .Properties("Caption") = "Fonctions Contraintes"
        .Properties("Width") = 426.75
        .Properties("Height") = 318
    End With
End Sub

Sub MakeUserformFC()
    Dim TempForm As Object ' VBComponent
       Application.ScreenUpdating = False
    
'   Create the UserForm
       Set TempForm = ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
    
    'Set Properties for TempForm
    With TempForm
        .Name = "FonctionsContraintes"
        .Properties("Caption") = "Fonctions Contraintes"
        .Properties("Width") = 426.75
        .Properties("Height") = 318
    End With
End Sub

Does anyone see where is the error???

Thanks for your help.

The error that i have is in the line:

.Properties("Name") = "FonctionsContraintes"

or

.Name = "FonctionsContraintes"

The macro create the userform but doesn't succed to give it a name

Doesn't work i have the same error

Now i have 2 errors the same number of error '75' but another description: specific object not found

It doesn't work i still have the same error in fact if crate the userform but when it attend the line of the name propriete it give me the error.
Is there another way to name the userform or where is the error in the code.

It works i don't know what changed i just restart my computer
Thanks for your help guys

I have just one more question:
is there a code that can verifie if the Name you're giving to a userform is use or not??

Found it:

 Sub UserFormTest()
Dim objVBComp As VBComponent
       
    For Each objVBComp In ActiveWorkbook.VBProject.VBComponents
        If objVBComp.Type = vbext_ct_MSForm Then
            If  objVBComp.Name = "NameUserForm" Then
                Exit Sub
            End If
        End If
    Next
  
End Sub