Enregistrement faux!!

Bonjour,

je m'adressse à vous pour m'aider à résoudre ce problème. Vraiment c'est urgent!!

j'ai besoin de transferer des données de textbox vers les cellules excel

j'ai décidé

Private Sub CommandButton6_Click()
Dim k As Integer, k1 As Integer, k2 As Integer, k3  As Integer

Worksheets("Change au comptant").Activate
    
      k = Range("J:J").End(xlDown).Row + 1
      k1 = Range("K:K").End(xlDown).Row + 1
      k2 = Range("L:L").End(xlDown).Row + 1
      k3 = Range("M:M").End(xlDown).Row + 1
      k4 = Range("O:O").End(xlDown).Row + 1
      k5 = Range("P:P").End(xlDown).Row + 1
       
        Cells(k, 2).Value = TextBox13.Value
        Cells(k1, 3).Value = TextBox4.Value
        Cells(k2, 4).Value = TextBox5.Value
        Cells(k3, 5).Value = TextBox6.Value
        Cells(k4, 15).Value = TextBox7.Value
        Cells(k5, 16).Value = TextBox8.Value

End Sub

mais ca ne marche pas il m'enregistre des pourcentagess!!! et n'ont pas des valeurs??

merci