Private Sub ListBoxAnnee_Click()
annee = ListBoxAnnee.Value
If annee <> Year(Date) Then
Select Case MsgBox("Etes-vous sûr de vouloir saisir les données de l'année " & annee & " ?", _
vbYesNo + vbExclamation, "Attention")
Case vbYes
'...
Case vbNo
Unload Me
Choix_MoisEtSite.Show 0
End Select
End If
End Sub