Function Annee_Fiscale(target As Date)
'----------- utilisation
' EXCEL : =Annee_Fiscale(RefCellule)
' =Annee_Fiscale(A1)
' =Annee_Fiscale(AUJOURDHUI())
' VBA :
' Mavar$=Annee_Fiscale(Now)
' Mavar$=Annee_Fiscale(Unedate)
'--------------------------------
Application.Volatile
If Month(Application.EDate(target, -6)) <= 6 Then
Annee_Fiscale = Year(target) & "/" & Year(target) + 1
Else
Annee_Fiscale = Year(target) - 1 & "/" & Year(target)
End If
End Function