Sub Test()
Dim FormName As String
FormName = "UserForm1"
With UFmNommé(FormName)
.TextBox1.Text = "TOTO"
.Show
End With
End Sub
Function UFmNommé(ByVal Nom As String) As Object
For Each UFmNommé In UserForms
If UFmNommé.Name = Nom Then Exit Function
Next UFmNommé
On Error Resume Next
Set UFmNommé = UserForms.Add(Nom)
If Err Then MsgBox "Il n'existe pas de définition d'UserForm """ & Nom & """.", vbCritical, "UFmNommé"
End Function