1ére USERFORM, et bloquage...

Bonjour à vous,
J'ai créer un userform pour remplissage d'un tableau.

Cette Userform comporte plusieurs champs (TextBox et Optionbutton) et 2 CommandButton (annuler et valider).

Le but étant, si click sur valider, prend les données saisie et les inserts dans le tableau à la dernière ligne vide.
Si click sur Annuler, ne rien enregistrer et sortir de Userform.

Help me please je bloque... Merci d'avance.


Private Sub CommandButton2_Click()
If Controls("OptionButton1").Value = True Then
[Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1,0)] = "CB" & Controls("OptionButton1").Caption
End If
If Controls("OptionButton2").Value = True Then
[Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1,0)] = "VIR" & Controls("OptionButton2").Caption
End If
If Controls("OptionButton3").Value = True Then
[Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1,0)] = "PRE" & Controls("OptionButton3").Caption
End If
If TextBox1_Change() = True Then
[Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox1
End If
If TextBox2_Change() = True Then
[Sheets("Feuil1").Range("B65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox2
End If
If TextBox3_Change() = True Then
[Sheets("Feuil1").Range("D65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox3
End If
If TextBox4_Change() = True Then
[Sheets("Feuil1").Range("E65536").End(xlUp).Offset(1,0)] = UserForm1.TextBox4
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End
End Sub