Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 And CheckBox2 Then TextBox1 = Range("B7") & vbLf & Range("C8") & vbLf & Range("D9")
End Sub
Private Sub CheckBox2_Click()
If CheckBox1 And CheckBox2 Then TextBox1 = Range("B7") & vbLf & Range("C8") & vbLf & Range("D9")
End Sub
UserForm1.textbox1 = feuil1.textbox1