Problème copier coller sur une autre feuille

Bonjour a tous

j'aimerais que mon code ne me renvoie pas un message box mais qu'il affiche le résultat directement sur la feuille 2 (juste le nombre rien d'autres par exple la il va afficher 2 puis 3 mais moi je veux que le 2 viennent en A2 de la feuille 2 et le 3 viennent en A3 de la feuille 2) a partir de la colonne A2

puis faire un copier coller de ces résultat et les mettre sur un autre fichier

Merci de votre aide

voici mon code

Sub test()

    Dim Date_Souscription_Adhésion As Range, Date_Survenance As Range
    Dim DernLigne As Long
    Dim nblignes, nblignes1, nblignes2, nblignes3, nblignes4 As Long

    With Worksheets("Feuil1")
        DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        Set Date_Souscription_Adhésion = .Range("G2:G" & DernLigne)
        Set Date_Survenance = .Range("R2:R" & DernLigne)
    End With

    nblignes = 0
    nblignes1 = 0
    nblignes2 = 0
    nblignes3 = 0
    nblignes4 = 0

    For i = 2 To DernLigne
        If DateSerial(2015, 2, 1) <= Cells(i, 7).Value And Cells(i, 7).Value <= DateSerial(2015, 2, 31) And DateSerial(2015, 2, 1) <= Cells(i, 18).Value And Cells(i, 18).Value <= DateSerial(2015, 2, 31) Then
            nblignes = nblignes + 1
            'Cells(i, 6).Value = 1 'incremente pour voir quel resultat il prend
            Cells(i, 1).Select
        End If
    Next i

    MsgBox "nombre de lignes : " & nblignes

        For i = 2 To DernLigne
        If DateSerial(2015, 2, 1) <= Cells(i, 7).Value And Cells(i, 7).Value <= DateSerial(2015, 2, 31) And DateSerial(2015, 3, 1) <= Cells(i, 18).Value And Cells(i, 18).Value <= DateSerial(2015, 3, 31) Then
            nblignes1 = nblignes1 + 1
            'Cells(i, 6).Value = 1 'incremente pour voir quel resultat il prend
        End If
    Next i

    MsgBox "nombre de lignes : " & nblignes1

    Selection.Copy

    Worksheets("Feuil2").Activate

    Destination = Sheets("Feuil2").Range("B1")

End Sub