remplir 2 textbox avec une seul userform

Option Explicit
Public vertourouge As String

Private Sub textbox1_DblClick(ByVal cancel As MSForms.ReturnBoolean)
Dim vertourouge As Integer
UserForm1.Show
vertourouge = "vert"
End Sub

Private Sub textbox2_DblClick(ByVal cancel As MSForms.ReturnBoolean)
Dim vertourouge As Integer
UserForm1.Show
vertourouge = "rouge"
End Sub

Private Sub Btn_1_Click()
Me.TextBox1.Text = Me.TextBox1.Text + "1"
If vertourouge = "vert" Then
UserForm2.TextBox1.Text = UserForm2.TextBox1.Text + "1"
Else
UserForm2.TextBox2.Text = UserForm2.TextBox2.Text + "1"
End If
End Sub