Charger automatiquement dans un userform des données

Bonjour j'ai créé un code qui me permet d'ajouter des données (via un userform) sur des tables sur différentes feuilles.

J'aimerais que lorsque la valeur de référence est connue, elle se remplisse automatiquement sur mon userform.

Exemple :

J'ai une variable (commande) à laquelle est toujours attaché les mêmes infos mais pas les mêmes montants.

Commande 1 : Type de prestation A / Resp. commande A / montant : 10 euros

Commande 1 : Type de prestation A / Resp. commande A / montant : 20 euros

Commande 2 : Type de prestation B / Resp. commande B / montant : 10 euros

Commande 2 : Type de prestation B / Resp. commande B / montant : 40 euros

Le but est donc d'automatiser l'ajout de données de références lorsque je veux rajouter sur la même commandes des montants.

En prenant l'exemple plus haut, lorsque j'ajoute un nouveau montant dans la commande 1, je veux que dans mon userform, s'affiche automatiquement les infos type de prestation A et Resp. commande A, données qui vont ensuite directement une feuille choisie lorsque je confirme la commande via un bouton.

Voici mon code :

'Procédure permettant l'initialisation du formulaire de
' charger dans la liste déroulante du formulaire
' les noms des feuilles des différentes catégories de prestations
Private Sub UserForm_Initialize()
Dim feuille As Worksheet

'Nous parcourons toutes les feuilles du classeur
For Each feuille In Worksheets
'********************************************************* à remettre en état **********************************************************************
Select Case feuille.CodeName 'Codename étant le nom de code de la feuille
'On retire dans la combobox les feuilles 1,7,8 et 9
Case "Feuil1"
'et on prend toutes les autres
Case Else
'On charge les noms des feuilles dans la liste déroulante
Me.cboNomFeuille.AddItem feuille.Nam
End Select
Next feuille
'********************************************************* à remettre en état ************************************************************************
End Sub

'procédure permettant d'ajouter sur la feuille sélectionnée le
' nouvel enregistrement à la fin de la table
Private Sub btnValiderCommande_Click()
Dim nbControle As Integer
Dim NouvelleLigne As Range
Dim MaFeuille As String

'On récupère le nom de la feuille de la liste déroulante
MaFeuille = cboNomFeuille.Value

'On test qu'il y ait bien le nom d'une feuille de sélectionnée
If Me.cboNomFeuille.Value = "" Then
MsgBox "La catégorie de prestation n'a pas été choisie", vbOKOnly + vbInformation, ""
Exit Sub
End If

'On test qu'il y ait bien le N° de commande renseigné
If Me.TextBox1.Value = "" Then
MsgBox "Le N° de commande n'a pas été renseigné", vbOKOnly + vbInformation, ""
Exit Sub
End If

'On test qu'il y ait bien le type de prestation non renseigné
If Me.TextBox2.Value = "" Then
MsgBox "Le type de prestation n'a pas été renseigné", vbOKOnly + vbInformation, ""
Exit Sub
End If

ETC...

'On test qu'il y ait bien le montant mis à disposition de renseigné
If Me.TextBox10.Value = "" Then
MsgBox "Le montant mis à disposition n'a pas été renseigné", vbOKOnly + vbInformation, ""
Exit Sub
End If

If MsgBox("Confirmez-vous l'ajout de cette commande ?", vbYesNo, "") = vbYes Then

'On récupère le nombre de contrôle dans le Userform
nbControle = 10 'Changer le numéro si vous ajouté de nouveaux contrôles

'On se positionne sur la dernière ligne vide de la table de données
Set NouvelleLigne = Sheets(MaFeuille).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

For x = 1 To nbControle
NouvelleLigne = Me.Controls("TextBox" & x).Value
'Me.Cont1.Value = Format(Me.Cont1.Value, "JJ/MM/AAAA")
Set NouvelleLigne = NouvelleLigne.Offset(0, 1)

Next x

cboNomFeuille.Value = ""
'On affiche un message confirmant la nouvelle saisie dans la table
MsgBox "La commande a bien été ajoutée sur : " & MaFeuille, vbOKOnly + vbInformation, "VALIDATION"

'on réinitialise les champs du formulaire à vide
For x = 1 To nbControle
Me.Controls("Textbox" & x).Value = ""
Next x

End If

Unload Me

End Sub