J'en mets toujours dans mes codes :

Private Sub Ajouter_Click()
If DoublonBobine = True Then
MsgBox "La bobine de cette caisse a déjà été saisie !", vbCritical, "DOUBLON"
If...