Validation donnée VBA

Bonjour à tous,
Pourquoi la commande ne fonctionne pas? En faite les données ne vont pas dans la feuil3 dans les cellules respectives
Merci de votre aide et excellente journée
Ouin-Ouin

Private Sub CommandButton1_Click()
Dim Ligne As Long
If TextBox1 = "" Then Exit Sub
Ligne = Feuil3.Range("A65536").End(xlUp).Row + 1
Feuil3.Range("A" & CStr(Ligne)) = TextBox1
Feuil3.Range("B" & CStr(Ligne)) = TextBox2
Feuil3.Range("C" & CStr(Ligne)) = TextBox3
Feuil3.Range("D" & CStr(Ligne)) = TextBox4
Feuil3.Range("E" & CStr(Ligne)) = TextBox5
Feuil3.Range("F" & CStr(Ligne)) = TextBox6
Feuil3.Range("G" & CStr(Ligne)) = TextBox7
Feuil3.Range("H" & CStr(Ligne)) = TextBox8
Feuil3.Range("I" & CStr(Ligne)) = TextBox9

End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub UserForm_Click()

End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = UCase(TextBox1.Text)
End Sub

Private Sub UserForm_Initialize()
TextBox2.MaxLength = 8
End Sub