'=> NOMINATION DOSSIER
If Dossier = "14-" Then
MsgBox "Rentrer un Numéro de Dossier", vbExclamation, "Enregistrement de la Demande": Exit Sub
Else
If Dossier <= DDos Then
MsgBox "N° déjà utilisé", vbExclamation, "Enregistrement de la Demande": Exit Sub
Else
If Dossier = "" Then MsgBox "Rentrer un Numéro de Dossier", vbExclamation, "Enregistrement de la Demande": Exit Sub