Macro pour date de changement de coefficient

Bonjour,

J'ai cherche une macro ou une formule de calcul pour avertir d'une date de changement de coefficient car ma formule est eronnée

Je joint en annexe le fichier excel nom "exel nouveau 2015" (version 2007).

Ce fichier contient déjà une macro pour calculer un coefficient selon une grille et la date d'entrée du salaries dans l'association soit :

Function coef(emploi, dateemb)

anc = Year(Date - dateemb) - 1900

n = 0

Set valeur = Sheets(emploi.Value).Range("a4").Offset(n, 0)

While valeur.Value <> ""

If anc >= valeur Then

coef = valeur.Offset(0, 2).Value

End If

Set valeur = valeur.Offset(1, 0)

Wend

If anc > valeur.Offset(-1, 0).Value Then coef = valeur.Offset(n - 1, 2).Value

End Function

En vous remerciant d'avance de votre assistance

serge