Questions calcul et imprimer Userform Excel

Bonjour,

J'aurais besoin d'aide pour deux petites choses dans mon Userform Excel. Je sais que pour vous ce doit être facile, mais j'en suis à mes débuts en VBA. Mon Userform sert à entrer les informations concernant l'employé afin qu'il réclame ses frais de déplacements pour réunions ou formations.

1- J'aimerais que les informations saisies aillent ensuite s'inscrire dans ma feuille Excel pour que l'employé l'imprime et la remette à son employeur. Lors d'un essai, mes informations allaient s'inscrire où je le voulais, par la suite, j'avais des messages d'erreur, donc je ne sais pas si mon code est correct. Je ne sais pas trop comment faire mon calcul pour les frais réclamés. Ça doit se calculer comme suit: Kilomètres parcourus (txtKilometres) x 0,48 (constante) et s'afficher ensuite dans la case de ma feuille Excel. J'ai tenté de faire le calcul, mais je ne sais pas s'il est correct et il ne s'affiche pas dans ma feuille Excel.

2- Après avoir rempli les informations et qu'elles se soient affichées dans ma feuille Excel, j'aimerais qu'elle s'imprime. Quel serait le code pour ça?

Je vous copie mon code, pour que vous voyiez ce que j'ai fait jusqu'à maintenant. Merci à l'avance!

Private Sub CmdOk_Click()
'Programme créé par Claudia Mathieu
'Programme créé le 26 décembre 2017
'Programme modifié le 26 décembre 2017
'Bouton qui sert à fermer le formulaire, à insérer les informations saisies dans la feuille Frais de déplacements et l'imprimer

'Déclaration des variables
Dim Semaine As Date
Dim Nom As String
Dim Prenom As String
Dim NoEmploye As Integer
Dim Kilometres As Long
Dim Frais As Currency
Dim Commentaires As String

'Déclaration de la constante (prix remboursé par kilomètre)
Const Remboursement = 0.48

'Calcul et attribution des variables
Semaine = TxtSemaine.Value
Nom = TxtNom.Value
Prenom = TxtPrenom.Value
NoEmploye = txtNoEmploye.Value
Kilometres = TxtKilometres.Value
Frais = TxtKilometres * Remboursement
Commentaires = TxtCommentaires.Value


'Insérer les valeurs des variables dans une cellule précise
Range("B3").Value = frmFraisDeplacement.TxtSemaine
Range("B4").Value = frmFraisDeplacement.TxtNom
Range("D4").Value = frmFraisDeplacement.TxtPrenom
Range("F4").Value = frmFraisDeplacement.txtNoEmploye
Range("B5").Value = frmFraisDeplacement.TxtKilometres
Range("D5").Value = frmFraisDeplacement.TxtFrais
Range("B6").Value = frmFraisDeplacement.TxtCommentaires


End Sub