La formule pour trouver la valeur pour un mois en F3 est indiquée dans le vidage d'écran ci-dessous.
T3, E3, F3 correspondent aux zones nommées : ValeurEtat, ValeurMois, ValeurNombre
Il suffit donc d'utiliser la fonction Term en modifiant ses paramètres.
Option Explicit
Sub TestDecompteMois()
Debug.Print Term("T", CDate("01/01/2022"))
End Sub
Function Term(ByVal Etat As String, ByVal DateChoisie As Date) As Integer
Range("ValeurEtat") = Etat
Range("ValeurMois") = DateChoisie
Term = Evaluate("ValeurNombre")
End Function