Private Sub UserForm_Initialize()
TxtNuméro.Value = Format(Sheets("Bon de commande").Range("D10") + 1, 0)
BtnEnvoyer.Enabled = False: TxtDate = CDate(Date): LblMatière.Visible = False
LblNomClient.Visible = False: LblPrescription.Visible = False
LblFournisseur.Visible = False: LblTypeVerres.Visible = False
CboNomClient.Visible = False: CboNomClient.List = [Nom_Client].Value
TxtOD.Visible = False: TxtOG.Visible = False
TxtFournisseur.Visible = False: TxtTypeVerre.Visible = False
TxtVerres.Visible = False: TxtMatière.Visible = False
Sheets("Bon de commande").Range("A7,D9,A13:B15,D13:D15,C13:C18,C21") = ""
End Sub