If arr(0) = "" Or arr(1) = "" Or arr(2) = "" Or arr(3) = "" Or arr(4) = "" Or arr(7) = "" Then
MsgBox "La saisie du formulaire est incomplète !...", 64, "Information"
Exit Sub
End If
If arr(5) = "" And arr(6) = "" Then
MsgBox "Manque somme débit ou crédit !...", 64, "Information"
Exit Sub
End If
If arr(5) <> "" And arr(6) <> "" Then
MsgBox "Seul crédit OU débit doit être renseigné !...", 64, "Information"
Exit Sub
End If