Fonction execl

Bonjour,
jai 2 feuille excel la feuille BA et la feuille 2018-2019
-dans BA j'ai la colone D qui correspont a la date du debut du contrat
-dans BA j'ai la colone E qui correspont a la date du fin du contrat
-dans 2018-2019 j'ai la colone A qui correspont au mois (jan , fev,.. sous forme 01/01/2018 , 01/02/2018 ....)
jaimerais mettre dans la colone B de la feuille 2018-2019 le nombre de contrat actif (compris entre la date de la colpnne D et E de la feuille BA)
je nai pas reussis a le faire avec une formul alors jai essaye de le faire avec une formule que jai cree en vba mais sa me met une erreure de valeur (#valeur!)
si vous avez uen solution pour une formul existante ou pour arranger mon code je serais ravis sa fais 3 jours je suis dessus
merci bcp

Public Function numberofc(m As Integer) As Integer



Dim x As Integer
Dim z As Integer
dim i As Integer


z = 0

x = Sheets("BA").ListObjects(1).Rows.Count


For i = 2 To x
  
 If Sheets("BA").Cells(D, i) < Sheets("2018-2019").Range(a, m) & Sheets("BA").Range(e, i) >= Sheets("2018-2019").Cells(a, m + 1) Then
    
z = z + 1
   
 End If
  
  i = i + 1
    
    Next
    
     Sheets("2018-2019").Cells(b, m).Value = z
     
    
  
          Debug.Print Var
  

    
End Function