=RECHERCHE(9^9;A:A)
=DECALER($B$1;NBVAL(B:B)-1;0)
Sub DateRecup()
With Sheets("Nom de ton feuillet")
DateARecuperer = .Range("A" & .range("A65536").End(xlUp).Row)
End With
End Sub
With Sheets("Nom de ton feuillet")
=INDIRECT(ADRESSE(EQUIV(9^9;A:A);1))
=E38/((ANNEE(RECHERCHE(9^9;A10:A27))-ANNEE(A10))*12+MOIS(RECHERCHE(9^9;A10:A27))-MOIS(A10))
=DATEDIF(A10;RECHERCHE(9^9;A10:A27);"m")+1