Sub Saisie()
Dim Reponse
Do
'Reponse = InputBox("Veuillez entrer une année pour calculer le montant")
Reponse = Application.InputBox("Saisie l'année pour calculer le montant ", "Calcule des Montants_FSE_2013 :", Type:=1)
If IsNumeric(Reponse) Then
Reponse = Int(--Reponse)
If Reponse >= 1000 And Reponse <= 9999 Then
[AG3] = Reponse
Exit Do
End If
End If
Loop
MsgBox " Toutes les montants des mois vont être calculés pour l'année " & _
Reponse & vbCrLf & "Et si vous voulez changer l'année cliquer sur le bouton < Montant > "
End Sub