Combobox en cascade et TextBox en mode nombre

Bonjour.

Je souhaiterai créer deux ComboBox en cascade, mais ne sais comment faire.

Pour le TextBox j'ai rentré le code suivant:

Private Sub HT_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

sepdec = Application.International(xlDecimalSeparator)

If Chr(KeyAscii) = "." Or Chr(KeyAscii) = "," Then KeyAscii = Asc(sepdec)

If Chr(KeyAscii) <> "," Then

  If Not IsNumeric(Chr(KeyAscii)) Then MsgBox ("Remplacer le point par une virgule !"): HT.Text = "": Exit Sub

End If

si cela me permet de transformer le point du pavé numérique en virgule, dans mon tableau récap, il le considère comme du texte. Pourriez-vous m'expliquer comment le mettre en mode monétaire.

Merci pour votre aide.

https://mon-partage.fr/f/PZrpNC07/