Controler la saisie dans un tableau par une boite de dialogue

Bonjour,
bonsoir tous le monde,
tout d'abord,je suis un apprenti vba excel
je voudrais remplir mon tableau a partir de ma boite de dialogue,
je m'explique.
tableau constituer de colonnes (désignation; Prix unitaire; Et les dates du mois(31 jours))
boite de dialogue.(Champ_désignation; Champ_quantité; Champ_prix unitaire; Champ_date ,)
alors voila mon code que j'ai écrit dans le module
Option Explicit

Sub proced_Ajout_pdt_divers()
Ajout_pdt_divers.champ_designation = ""
Ajout_pdt_divers.champ_qte_entree = ""
Ajout_pdt_divers.champ_prix_unitaire = ""
Ajout_pdt_divers.Show
Sheets("ENTREES DIVERS").Select
Rows("10:10").Select
Selection.Insert shift:=xlDown
Range("a10").Select
ActiveCell.Formula = Ajout_pdt_divers.champ_designation
Range("b10").Select
ActiveCell.Formula = Ajout_pdt_divers.champ_prix_unitaire
If Sheets("ENTREES DIVERS").Range("d9") = Ajout_pdt_divers.champ_dte Then
Range("d10").Select
ActiveCell.Formula = Ajout_pdt_divers.champ_qte_entree
Else
If Sheets("ENTREES DIVERS").Range("e9") = Ajout_pdt_divers.champ_dte Then
Range("e10").Select
ActiveCell.Formula = Ajout_pdt_divers.champ_qte_entree
Else
If Sheets("ENTREES DIVERS").Range("f9") = Ajout_pdt_divers.champ_dte Then
Range("f10").Select
ActiveCell.Formula = Ajout_pdt_divers.champ_qte_entree
Else
If Sheets("ENTREES DIVERS").Range("g9") = Ajout_pdt_divers.champ_dte Then
Range("g10").Select
ActiveCell.Formula = Ajout_pdt_divers.champ_qte_entree
Else
If Sheets("ENTREES DIVERS").Range("h9") = Ajout_pdt_divers.champ_dte Then
Range("h10").Select
ActiveCell.Formula = Ajout_pdt_divers.champ_qte_entree
Else
End If
End If
mon problème c comment indiquer a excel de me remplir la quantité du produit désigné selon la date écrite dans ma boite de dialogue
pour mieux me comprendre je vous envoie mon classeur en pièce jointe