Calcul du nombre de ligne

Bonjour,

je suis débutante en VBA j'ai une petite question
j'ai envie de calculer le nombre de sinistre que j'ai par mois mais sa ne marche pas si vous pouviez m'aider
merci
mon classeur excel est sous la forme
Date_Souscription_Adhésion en colonne a
04/01/2013
06/01/2013
18/01/2013
28/01/2013
27/01/2013
21/01/2013
08/01/2013

Date_Survenance en colonne b
23/07/2013
23/02/2013
31/01/2013
04/09/2013
01/02/2013
06/03/2013
09/01/2013



voici mon code

Sub test()

    Dim Date_Souscription_Adhésion As Range 'définit les variables
    Dim Date_Survenance As Range
    Dim i As Integer
    Dim j As Integer
    Dim DernLigne1 As Long
    Dim DernLigne2 As Long
    Dim nblignes As Integer
    
    Worksheets("Feuil1").Activate
    
    DernLigne1 = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'définit la dernière ligne colonne A
    DernLigne2 = Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row 'définit la dernière ligne colonne B
    
    Set Date_Souscription_Adhésion = Sheets("Feuil1").Range("A2:A" & DernLigne1) 'définit la colonne A
    Set Date_Survenance = Sheets("Feuil1").Range("B2:B" & DernLigne2) 'définit la colonne B
    
        nblignes = 0
       ' nblignes2 = 0
    
        For i = 1 To Date_Souscription_Adhésion.Rows.Count ' boucle sur la colonne A
        For j = 1 To Date_Survenance.Rows.Count ' boucle sur la colonne B
                
                If Year(Date_Souscription_Adhésion(i, 1)) = 2013 Then 'i étant la ligne de 2 à dernière ligne et 1 la colonne A
                    If Month(Date_Souscription_Adhésion(i, 1)) = 1 Then
                        If Year(Date_Survenance(j, 1)) = 2013 Then 'j étant la ligne de 2 à dernière ligne et 1 la colonne B
                        If Month(Date_Survenance(j, 1)) = 7 Then
                          nblignes = Range("A9").End(xlUp).Row   'compter le nombre de ligne
                        End If
                        End If
                    End If
                    If Month(Date_Souscription_Adhésion(i, 1)) = 1 Then
                        If Year(Date_Survenance(j, 1)) = 2013 Then 'j étant la ligne de 2 à dernière ligne et 1 la colonne B
                        If Month(Date_Survenance(j, 1)) = 2 Then
                            nblignes = Range("A9").End(xlUp).Row   'compter le nombre de ligne
                        End If
                        End If
                     End If
                End If
                
                
        Next j
        Next i
    
   MsgBox "le nombre de sinistre declarer en fevrier est" & nblignes
End Sub