Phasage de date

=SI(D$1="";"";SI(ET(DATE(DROITE(D$1;4);12;31)>$A2;DATE(DROITE(D$1;4);1;1)<$B2);365*(MIN(DATE(DROITE(D$1;4);12;31);$B2)-MAX(DATE(DROITE(D$1;4);1;1);$A2)+1)/(DATE(DROITE(D$1;4);12;31)-DATE(DROITE(D$1;4);1;1)+1);""))

=SI(D$1="";"";SI(ET(DATE(DROITE(D$1;4);12;31)>$A2;DATE(DROITE(D$1;4);1;1)<$B2);SI(JOUR(DATE(DROITE(D$1;4);2;29))=1;365;366)*(MIN(DATE(DROITE(D$1;4);12;31);$B2)-MAX(DATE(DROITE(D$1;4);1;1);$A2)+1)/(DATE(DROITE(D$1;4);12;31)-DATE(DROITE(D$1;4);1;1)+1);""))

Function JoursParAnnee(Date_Debut As Range, Date_Fin As Range, Annee As Range) As Long
Dim Jour As Date
Dim cpt&
'---
For Jour = Date_Debut To Date_Fin
  If Year(Jour) = Annee Then
    cpt& = cpt& + 1
  End If
Next Jour
JoursParAnnee = cpt&
End Function

=MAX(MIN($B2;D$1)-MAX(DATE(ANNEE(D$1);1;1);$A2);0)

=MAX(MIN($B2;D$1)-MAX(DATE(ANNEE(D$1);1;1);$A2)+1;0)