Dim Annee as Integer
Annee = 1
While Annee < Year(Now) And Annee > 0
Annee = Application.InputBox("En quelle année voulez-vous classer ce dossier?" _
& vbCrLf & _
"Saisissez une année supérieure ou égale à l'année en cours :", "Saisie de l'année", Type:=1)
Wend