Insertion d’une date calendrier dans un TextBox ou cellule

Bonsoir =E0 tous,

Dans une application j=92ai un calendrier dans un USF sous le nom CalFrm.

Par un premier bouton j=92appelle une macro qui me fait afficher CalFrm pou=
r insertion de la date choisie dans une cellule.

Par un deuxi=E8me bouton, j=92appelle un USF qui contient un TextBox1 et Te=
xtBox2 pour m=92afficher les dates choisies (Date1 et Date2) depuis le m=EA=
me USF CalFrm

Alors comment =E9crire un code pour diff=E9rencier l=92insertion de la date=
choisie depuis l=92USF CalFrm dans la cellule pour le premier bouton ou da=
ns le TextBox1, TextBox2 pour le deuxi=E8me bouton ?


'----------------
Private Sub CommandButton1_Click() 'Bouton OK du calendrier
If frm =3D 1 Then
PersoFrm.ActiveControl.Value =3D Calfrm.Calendar1.Value
Else
'Place the date from the calendar into the cell
Sheets("BD").[H10].Value =3D Calfrm.Calendar1.Value
Unload Me
End If
Unload Me
End Sub=20
'-----------

Merci d=92avance.