Compteur Mois été ou hiver

Function Mois_hiver(d As Date, n As Long)
Dim p As Byte, i As Long, Nb As Long, Mois, Saison
Mois = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
Saison = Array("", "hiver", "hiver", "hiver", "été", "été", "été", "été", "été", "été", "hiver", "hiver", "hiver")
p = Application.Match(Month(d), Mois, 0)
For i = 1 To n
    If Saison(p) = "hiver" Then Nb = Nb + 1
    p = p + 1
    If p = 13 Then p = 1
Next i
Mois_hiver = Nb
End Function

Function Mois_été(d As Date, n As Long)
Dim p As Byte, i As Long, Nb As Long, Mois, Saison
Mois = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
Saison = Array("", "hiver", "hiver", "hiver", "été", "été", "été", "été", "été", "été", "hiver", "hiver", "hiver")
p = Application.Match(Month(d), Mois, 0)
For i = 1 To n
    If Saison(p) = "été" Then Nb = Nb + 1
    p = p + 1
    If p = 13 Then p = 1
Next i
Mois_été = Nb
End Function

=Mois_hiver(C5;C6)

=Mois_été(C5;C6)