XL 2010 Ranger différentes valeurs dans une cellule

Option Explicit
Public TDon As Variant
Private myEventHandlers As Collection
Dim RubGlobale As New SupportTBx

Private Sub UserForm_Initialize()
    TDon = Array("TextBox1", "TextBox2", "TextBox3")
    Dim SsRub As SupportTBx
    Set myEventHandlers = New Collection
    Dim c As Control
    For Each c In Me.Controls
        If TypeName(c) = "TextBox" Then
            Set SsRub = RubGlobale.Item(c)
            myEventHandlers.Add RubGlobale
        End If
    Next c
End Sub

Option Explicit
Private WithEvents TBx As MSForms.TextBox
Private Res As Double
Private CLn As Collection
Private Sub Class_Initialize()
   Set CLn = New Collection
   End Sub
Public Function Item(ByVal TxtBox As MSForms.TextBox) As SupportTBx
   On Error Resume Next
   Set Item = CLn(TxtBox.Name)
   If Err Then
      Set Item = New SupportTBx
      Set TBx = TxtBox
      CLn.Add Item, TxtBox.Name
   End If
   End Function

Private Sub TBx_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox "OK suite double clique TexteBox"
    ' Ici la condition avec le nom dans la Variable Objet Collection Cln
    ' exemple :
    ' dim TxtBox as SupportTBx
    ' set TxtBox = CLn(TBx.name)
    ' le texbox suit avec tous le contenue de la classe
    ' Dim i as Byte
    ' For i = Lbound(TDon) to Ubound(TDon)
    ' if TBx.name = TDon(i) then
    '    UserForm1.TextBox4.Text = UserForm1.TextBox4.Text + Tbx.text
    ' Elseif TBx.name = UserForm1.TextBox4.Name then
    '     Tbx.text = TxtBox.Res
    ' End if
    ' Next i
End Sub

Private Sub TBx_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If TBx.SelStart = 0 Then
        KeyAscii = AscW(UCase$(ChrW$(KeyAscii)))
    End If
   End Sub
Property Let Resultat(ByVal Sum As Double)
    Res = Sum
End Property
Property Get Resultat()
    Resultat = Res
End Property

Option Explicit
Private Cln As New Collection
Private Sub UserForm_Initialize()
    Dim SBx As SupportTBx
    Dim c As Control
    For Each c In Me.Controls
        If TypeName(c) = "TextBox" Then
            Set SBx = New SupportTBx
            SBx.Init c
            Cln.Add SBx
        End If
    Next c
End Sub

Option Explicit
Private WithEvents TBx As MSForms.TextBox
Private TDon As Variant
Private Res As Double
Private Sub Class_Initialize()
    TDon = Array("TextBox1", "TextBox2", "TextBox3")
End Sub
Public Sub Init(ByVal TxtBox As MSForms.TextBox)
   Set TBx = TxtBox
   End Sub
Private Sub TBx_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
     Dim i As Byte
     For i = LBound(TDon) To UBound(TDon)
     If TBx.Name = TDon(i) Then
        UserForm1.TextBox4.Text = UserForm1.TextBox4.Text + TBx.Text
     ElseIf TBx.Name = UserForm1.TextBox4.Name Then
         TBx.Text = UserForm1.TextBox4.Text
     End If
     Next i
End Sub