Sub Macro1()
Dim TA() As Variant 'déclare la variable TA (Tableau des Années)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
TA = Array(1999, 2002, 2005, 2011) 'définit le tableau des années TA
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
COL = 1 'définit la colonne (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, COL).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne COL de l'onglet O
TV = O.Range(O.Cells(1, COL), O.Cells(DL, COL)) 'définit le tableau des valeurs TV
For J = 0 To UBound(TA, 1) 'boucle 1 : sur toutes les années J du tableau des valeurs TA
For I = 1 To UBound(TV, 1) 'boucle 2 : sur toutes les lignes I du tableau des valeurs TV
'si les années coïncident, message (tu n'as pas précisé ce que tu voulais que le code fasse...)
If TV(I, 1) = TA(J) Then MsgBox "Année " & TA(J) & " trouvée dans la ligne " & I & " !"
Next I 'prochaine ligne de la boucle 2
Next J 'prochaine date de la boucle 1
End Sub