Public Sub BP_Copier_Source0_Click()
' **********************************
' * Copier valeur attribut TextBox
' **********************************
Dim valeur1 As String
Dim valeur2 As String
valeur1 = TextBox1.Text
valeur2 = TextBox2.Text
End Sub
Public Sub BP_Coller_Destination0_Click()
' *****************************************
' * Coller nouvelle valeur attribut TextBox
' *****************************************
TextBox3.Text = valeur1
TextBox4.Text = valeur2
End Sub