Private Sub Data4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'la saisie de la Région est obligatoire pour continuer
If Me.Data4.Value = "" And BtCan.TakeFocusOnClick = False Then
MsgBox "Cette case doit être complétée : Saisir la Région", vbCritical, "Erreur saisie"
Me.Data4.SetFocus
Cancel = True
End If
End Sub