'Date Emission
Do
Texte1 = "Saisir la date d'emission du chèque" & Chr(13) & "Attention; Saisir sous Format : mm/dd/yyyy)"
Texte2 = "Date Emission"
variable = Application.InputBox(Texte1, Texte2)
If variable = False Or IsDate(variable) = False Then Alerte1 = MsgBox("Merci de saisir une date!", vbCritical, "Erreur Saisi")
Loop Until variable <> False And IsDate(variable) = True
Target.Offset(, 1).Value = Format(variable, "dd/mm/yyyy")
DateEmission = variable
'Date Prévue
Do
Texte1 = "Saisir la date prévue d'encaissement du chèque" & Chr(13) & "Attention; Saisir sous Format : mm/dd/yyyy)"
Texte2 = "Date encaissement prévue"
variable = Application.InputBox(Texte1, Texte2)
If variable = False Or IsDate(variable) = False Then Alerte1 = MsgBox("Merci de saisir une date!", vbCritical, "Erreur Saisi")
If IsDate(variable) = True And variable < DateEmission Then Alerte2 = MsgBox("La date d'encaissment doit être après la date d'emission du chèque (le " & DateEmission & " )", vbCritical, "Erreur Saisi")
Loop Until variable <> False And IsDate(variable) = True And variable >= DateEmission
Target.Offset(, 4).Value = Format(variable, "dd/mm/yyyy")