Dim AnnéeActuelle As String
AnnéeActuelle = Format(Now, "yyyy")
Dim vAn(1980 To AnnéeActuelle) As String
' Remplissage Années
ComboBox3.Clear
For i = 1980 To AnnéeActuelle
vAn(i) = Format(DateSerial(i + 1, 0, 0), "yyyy")
ComboBox3.AddItem vAn(i)
Next i