Microsoft 365 Quelle autre méthode pour créer un Userfom sur Mac | propositions + application de la solution si c'est possible ??? (non ActiveX svp)

Option Explicit
Sub MakeUserForm()
    
    Dim MyUserForm As VBComponent
    Dim NewOptionButton As Msforms.OptionButton
    Dim NewCommandButton1 As Msforms.CommandButton
    Dim NewCommandButton2 As Msforms.CommandButton
    Dim MyComboBox As Msforms.ComboBox
    Dim N, X As Integer, MaxWidth As Long
    
     '//First, check the form doesn't already exist
    For N = 1 To ActiveWorkbook.VBProject.VBComponents.Count
        If ActiveWorkbook.VBProject.VBComponents(N).Name = "NewForm" Then
            ShowForm
            Exit Sub
        Else
        End If
    Next N
    
     '//Make a userform
    Set MyUserForm = ActiveWorkbook.VBProject _
    .VBComponents.Add(vbext_ct_MSForm)
    With MyUserForm
        .Properties("Height") = 100
        .Properties("Width") = 200
        On Error Resume Next
        .Name = "NewForm"
        .Properties("Caption") = "Here is your user form"
    End With
    
     '//Add a Cancel button to the form
    Set NewCommandButton1 = MyUserForm.Designer.Controls.Add("forms.CommandButton.1")
    With NewCommandButton1
        .Caption = "Cancel"
        .Height = 18
        .Width = 44
        .Left = MaxWidth + 147
        .Top = 6
    End With
    
     '//Add an OK button to the form
    Set NewCommandButton2 = MyUserForm.Designer.Controls.Add("forms.CommandButton.1")
    With NewCommandButton2
        .Caption = "OK"
        .Height = 18
        .Width = 44
        .Left = MaxWidth + 147
        .Top = 28
    End With
    
     '//Add code on the form for the CommandButtons
    With MyUserForm.CodeModule
        X = .CountOfLines
        .InsertLines X + 1, "Sub CommandButton1_Click()"
        .InsertLines X + 2, "    Unload Me"
        .InsertLines X + 3, "End Sub"
        .InsertLines X + 4, ""
        .InsertLines X + 5, "Sub CommandButton2_Click()"
        .InsertLines X + 6, "    Unload Me"
        .InsertLines X + 7, "End Sub"
    End With
    
     '//Add a combo box on the form
    Set MyComboBox = MyUserForm.Designer.Controls.Add("Forms.ComboBox.1")
    With MyComboBox
        .Name = "Combo1"
        .Left = 10
        .Top = 10
        .Height = 16
        .Width = 100
    End With
    
    ShowForm
End Sub
 
Sub ShowForm()
    NewForm.Show
End Sub

    For N = 1 To ActiveWorkbook.VBProject.VBComponents.Count
        If ActiveWorkbook.VBProject.VBComponents(N).Name = "toto" Then ' avant le nom était : "NewForm"
            ShowForm
            Exit Sub
        Else
        End If
    Next N

'**********************************
'         MsgBox perso avec userform dynamique
'auteur patricktoulon
'date :12/08/2016
'***********************************
Option Explicit
Sub test()
    MsgBox "vous avez cliqué sur " & msg("salut RYU comment va tu ?")
End Sub
Function msg(texte)
    Dim Obj As Object, usf
    Dim j As Integer
    Set usf = ThisWorkbook.VBProject.VBComponents.Add(3)
    With usf: .Properties("Caption") = "msgboxAA": .Properties("Width") = 250: .Properties("Height") = 150: End With

    Set Obj = usf.Designer.Controls.Add("forms.TextBox.1", "content")
    With Obj:
        .Left = 0:
        .Top = 0:
        .Width = usf.Properties("InsideWidth"):
        .Height = usf.Properties("Insideheight") - 25
        .Name = "content":
        .BackColor = &H80C0FF:
        .ForeColor = vbGreen
        .Font.Name = "algerian"
        .Font.Size = 16
        .TextAlign = 2
        .MultiLine = True
        'et toutes autre propriété des textboxs font,borderstyle,etc......
        .Value = texte


    End With
    Set Obj = usf.Designer.Controls.Add("forms.CommandButton.1", "boutonOK")
    With Obj:
        .Left = usf.Properties("Width") - 60
        .Top = usf.Properties("Height") - 25 - 20
        .Width = 50
        .Height = 20
        .Name = "bouttonOK":
        .BackColor = vbRed
        .ForeColor = vbGreen
        .Caption = "OK"
    End With

    Set Obj = usf.Designer.Controls.Add("forms.CommandButton.1", "boutoncancel")
    With Obj:
        .Left = usf.Properties("Width") - 120
        .Top = usf.Properties("Height") - 25 - 20
        .Width = 50
        .Height = 20
        .Name = "boutoncancel":
        .BackColor = vbBlue
        .ForeColor = vbMagenta
        .Caption = "ANNULER"
    End With


    'creation insertion code du des evenements
    With usf.CodeModule
        j = .CountOfLines
        .insertlines j + 1, "public reponse"
        .insertlines j + 2, "Private Sub bouttonOK_Click():reponse = ""ok"": Me.Hide:End Sub"
        .insertlines j + 3, "Private Sub boutoncancel_Click():reponse = ""Annuler"":me.hide:End Sub"
        .insertlines j + 4, "Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)"
        .insertlines j + 5, "If CloseMode = 0 Then Cancel = True: Me.Hide"
        .insertlines j + 6, "End Sub"


    End With
    VBA.UserForms.Add (usf.Name)
    'affichage du pseudo msgbox
    With UserForms(UserForms.Count - 1)
        .Show
        msg = .reponse
    End With
    ThisWorkbook.VBProject.VBComponents.Remove (usf)
End Function