Appeler un Textbox à l'aide d'une variable

Bonjour,

J'ai un petit soucis avec VBA, je souhaite partager une variable entre deux USF et afin de réutiliser cette variable dans une commande (je pense que c'est surtout ici que se trouve le problème).

Pour résumer, j'ai dans mon premier USF plusieurs textbox destinées à accueillir des dates, mon second USF est un calendrier où nous choisissons la date et la réimplantons dans le premier USF.
Jusqu'ici tout fonctionne très bien, le soucis est que pour que ma macro actuelle fonctionne, il me faut un USF calendrier pour chaque textbox destiné à acceuillir une date puisque je spécifie le nom de ma textbox dans l'USF calendrier. Je souhaite donc créer une variable afin de ne pas multiplier les USF calendrier (J'ai 10 textbox pouvant acceuillir des dates)

Voici ce que j'ai fais :

Dans un module j'ai declaré ma variable

Public date2 As Date
Public CaseDate As String

Dans mon premier USF j'ai créé un bouton à coté de chaque textbox pouvant accueillir une date sur ce modèle :

Sub Calendar1_Click()
CaseDate = Echeance1 'nom de ma textbox
Calendrier1.Show vbModeless
End Sub

Et enfin sur mon USF calendrier, je choisis de réimplanter la date selectionné :

   
'Traitement.Echeance1.value = date2 'ceci fonctionne mais je dois donc créer un USF calendrier pour chaque nom de textbox
Traitement.CaseDate.Value = date2 'Ceci ne fonctionne pas (il cherche qqch nommé CaseDate sur mon USF directement) mais cela me permettrait de tout gérer avec le meme calendrier.
   
   Traitement.Show vbModeless
    Unload Me

Je suis désolé, je m'y prend certainement très mal...
Merci d'avance pour votre aide.