Problème au niveau sélection des données

Bonjour,

Je suis débutant avec Excel VBA, j'essaye de sélectionner des données selon un critère. Le problème c'est une fois la sélection est faite, ces données se répètent plusieurs fois et non pas une seule! Voici le code:

Sub exemple()
    Dim Rw As Range
    Dim Ligne As Long

    Sheets("Initial").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    Range(Selection, Cells(1)).Select

    For Each Rw In Selection.Rows
    Ligne = Rw.Row

    If Rw.Cells(1, 2).Value = "1" Then
    Rw.Copy Destination:=Worksheets("Feuil2").Cells(Ligne, 1).EntireRow
    End If
    Next Rw

End Sub

Je serai très reconnaissant si quelqu'un peut m'aider!

Bonjour et bienvenue,