1 : 2 : 3 : 4 : 5 : 6 :
Pour I = (Me.LstRHFGrants.ListCount + 1) à ((Me.LstRHFGrants.ListCount + 1) + 4) année = année + 1 Avec Me.LstRHFGrants .AddItem (grantdesc et « ; » et année) Extrémité avec Après