Sub Selection_Annee()
Dim Reponse As String, lig As Variant
Do
Reponse = InputBox("Indiquez l'année, SVP :", , Reponse)
If Reponse = "" Then Exit Sub
lig = Application.Match(Val(Reponse), Sheets("Source").[F:F], 0)
If IsError(lig) Then MsgBox "L'année recherchée ne figure pas dans la Source"
Loop While IsError(lig)
End Sub