Private Sub CDBVALIDER_Click()
Dim LIG As Integer
[COLOR="Blue"]Reponse = MsgBox("Vous êtes sûr de vouloir enregistrer ce nouveau réceptionnaire ?", vbYesNo, "Nouvelle saisie")
If Reponse = vbNo Then
Unload UserForm2
End If
If Reponse = vbYes Then[/COLOR]
LIG = Range("B65536").End(xlUp).Row + 1
Range("B" & LIG) = TXTMAT
Range("C" & LIG) = TXTNOM
Range("D" & LIG) = TXTPRENOM
Range("E" & LIG) = TXTDATE
Range("F" & LIG) = CBBCORRES
MsgBox "Tu vas enregistrer un nouveau réceptionnaire !"
'Je vide le formulaire
TXTMAT.Value = ""
TXTNOM.Value = ""
TXTPRENOM.Value = ""
TXTDATE.Value = ""
CBBCORRES.Value = ""
[COLOR="Blue"]Unload UserForm2[/COLOR] [COLOR="Green"]'(*)[/COLOR]
[COLOR="Blue"]End If[/COLOR]
End Sub