XL 2016 calcule du nombre de ligne

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
                            MsgBox Range("A2", Range("A8").End(xlUp)).Rows.Count '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
                            nblignes2 = Range("B2", Range("B7").End(xlUp)).Rows.Count '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" & nblignes2
End Sub