Rendre visible textbox

Bonjour, J'ai deux UserForm. Le premier contient des CheckBox, et renvoie au second qui contient des textBox. Mon but est de faire apparaitre que certaines Textbox en fonction des checkbox cochées. Mon code : rivate Sub CheckBox1_Click() If CheckBox1.Value = True Then UserForm2.TextBox1.Visible = True UserForm2.TextBox2.Visible = True Else UserForm2.TextBox1.Visible = False UserForm2.TextBox2.Visible = False End If End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then UserForm2.TextBox3.Visible = True UserForm2.TextBox4.Visible = True UserForm2.TextBox5.Visible = True Else UserForm2.TextBox3.Visible = False UserForm2.TextBox4.Visible = False UserForm2.TextBox5.Visible = False End If End Sub Private Sub CheckBox3_Click() If CheckBox2.Value = True Then UserForm2.TextBox6.Visible = True UserForm2.TextBox7.Visible = True UserForm2.TextBox8.Visible = True Else UserForm2.TextBox6.Visible = False UserForm2.TextBox7.Visible = False UserForm2.TextBox8.Visible = False End If End Sub Et, ça fait tout simplement n'importe quoi ! Le plus souvent si je coche deux checkbox, ça n'en fait apparaitre qu'une seule Si quelqu'un pouvait m'aider..