Ns = InputBox(("Le document est existant" & Chr(10) & "Liste des documents similaires : " & Chr(10) & Chr(10) & Msg & _
Chr(10) & "Entrez un nouveau N° d'ordre : " & Chr(10) & "(comprie entre 0 et " & Nmax & ")"), "Doublon")
If Ns = "" Then Exit Sub
'Control entré numérique
While Not IsNumeric(Ns)
MsgBox "Le saisi n'est pas un nombre.", vbExclamation, "Message d'erreur"
Ns = InputBox(("Le document est existant" & Chr(10) & "Liste des documents similaires : " & Chr(10) & Chr(10) & Msg & _
Chr(10) & "Entrez un nouveau N° d'ordre : " & Chr(10) & "(comprie entre 0 et 9999)"), "Doublon")
If Ns = "" Then Exit Sub
Wend
'Control entré entre 0 et Nmax
While Ns < 0 Or Ns > Nmax
MsgBox "Le nombre n'est pas dans la plage valide.", vbExclamation, "Message d'erreur"
Ns = InputBox(("Le document est existant" & Chr(10) & "Liste des documents similaires : " & Chr(10) & Chr(10) & Msg & _
Chr(10) & "Entrez un nouveau N° d'ordre : " & Chr(10) & "(comprie entre 0 et 9999)"), "Doublon")
If Ns = "" Then Exit Sub
Wend
End If