Infos de feuille a exporter sur la feuile 2 sous condition

Sub Expurger()
    Dim shSource As Worksheet, shDestination As Worksheet
    Dim idx As Long, cpt As Long, LigneDestination As Long
    Dim arr
    'Initialisation des feuilles source et destination
    Set shSource = Sheets("Feuil1"): Set shDestination = Sheets("Feuil2")
    With shSource
        'Tableau contenant les valeurs de la colonne B de la feuille source
        arr = .Range("B1:B" & .Range("B" & .Rows.Count).End(xlUp).Row).Value
        cpt = UBound(arr) 'Nombre de valeur (1 à N)
    End With
 
    'Prochaine ligne libre de la colonne A de la feuille destination
    LigneDestination = shDestination.Range("A" & Rows.Count).End(xlUp).Row
 
    'Boucler sur le tableau
    For idx = 1 To cpt
        'Si la valeur de tableau parcourue est L, E, S
        If arr(idx, 1) Like "[LES]" Then
 
            'copier la ligne de la feuille source vers la ligne libre de la feuille destination
            shSource.Range("A" & idx & ":M" & idx).Copy shDestination.Range("A" & LigneDestination)
 
             'incrémente le prochain numéro de ligne libre destination
            LigneDestination = LigneDestination + 1
        End If
    Next idx
End Sub