Feuille userform avec paramètres

Private Sub MonBouton_Click()
Dim bit As Byte
Dim str As String
  bit = 23
  str = "Mon texte"
  MonModule.OuvrirMaFeuille bit, str
End Sub

Sub OuvrirMaFeuille(b As Byte, s As String)
  MaFeuille.a = b
  MaFeuille.t = s
  MaFeuille.Show
End Sub

Public a As Byte
Public t As String
Private Sub btnAfficher_Click()
  MsgBox "Propriété a = " & Me.a & vbCrLf & _
         "Propriété t = " & Me.t
End Sub
Private Sub btnQuitter_Click()
  Unload Me
End Sub

Public Function reponse(question As String) As String
Me.TextBox1 = question
Me.Show
reponse = Me.TextBox1
End Function

Sub getresp()
Debug.Print UserForm1.reponse("dis moi")
End Sub

Function Question(Q As String)

With Questionner
    If Q = "Monter" Then
        .Caption = "Remonter la dernière ligne ?"
        .Sup1.Visible = False
        .Sup2.Visible = True
        .Q = "On remonte la dernière ligne ? = " + Format(Selection.Characters.Count) + " caractères"
    Else
        .Caption = "Position de l'image = " + Format(PointsToInches(Selection.Information(wdVerticalPositionRelativeToPage))) + " pouces"
    End If
    .Show
End With
Question = Questionner.Tag
End Function

Public Rép As Boolean

Function Question(Q As String) As Boolean

With Questionner
    If Q = "Monter" Then
        .Caption = "Remonter la dernière ligne ?"
        .Sup1.Visible = False
        .Sup2.Visible = True
        .Q = "On remonte la dernière ligne ? = " + Format(Selection.Characters.Count) + " caractères"
    Else
        .Caption = "Position de l'image = " + Format(PointsToInches(Selection.Information(wdVerticalPositionRelativeToPage))) + " pouces"
    End If
    .Show
End With
Question = Rép
End Function

Option Explicit
Public Enum uReponse
  uBouton1 = 1
  uBouton2 = 2
End Enum
Sub Question_1()
  With Questionner
    .Bouton1.Caption = "Oui"
    .Bouton2.Caption = "Non"
    .Reponse = Empty
    .Question = "Remonter la dernière ligne ?"
    .Show
    If .Reponse = uBouton1 Then
      MsgBox "Reponse Oui"
    ElseIf .Reponse = uBouton2 Then
      MsgBox "Reponse Non"
    Else
      MsgBox "Pas réponse"
    End If
  End With
  Unload Questionner
End Sub

Public Reponse As uReponse
Private Sub Bouton1_Click()
  Me.Reponse = uBouton1
  Me.hide
End Sub
Private Sub Bouton2_Click()
  Me.Reponse = uBouton2
  Me.hide
End Sub