vba : copie de plage aprés conditions

[M2].FormulaR1C1 = _
"=IF(ISNA(MATCH(RC12,Feuil2!R2C[B][COLOR=red]1[/COLOR][/B]:R7C[COLOR=red][B]1[/B][/COLOR],0)),"""",OFFSET(Feuil2!R1C[B][COLOR=red]1[/COLOR][/B],MATCH(RC12,Feuil2!R2C[B][COLOR=red]1[/COLOR][/B]:R7C[B][COLOR=red]1[/COLOR][/B],0),COLUMN()-12))"

Option Explicit

Sub Egalite_Test()

'// Code rédiger par xxxxxxx    //
'//                                                     //

    Dim plage As Range, S As Range, D As Range
    Dim t(100, 2) As String '// Déclaration de la variable tableau
    Dim L As Integer
    
    For Each D In Feuil2.[L2:L100]
        For Each S In Feuil3.[A2:A100]
            If D.Value = S.Value Then
                S.Value = vbNullString
                L = D.Row - 2
                t(L, 0) = S.Offset(, 1).Value   '// Decalage
                t(L, 1) = S.Offset(, 2).Value
                t(L, 2) = S.Offset(, 3).Value
            End If  '// Fin de la condition Si
    Next S, D   '// Boucle sur les valeurs de variables S & D de la condition "For"
    
    Feuil3.[A2:A100].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Feuil2.[M2:O100] = t
    
'// Fin de code rédiger par xxxxxxxx //

Columns("N:N").Select   '// Selection de la colonne
Selection.NumberFormat = "General"  '// Definition du format de cellule "Standart"

Range("L1").Select  '// Position du curseur

Call Copie  '// Appel de l'instruction "Copie"
End Sub

Sub Copie()
Dim Cell As Range   '// declaration du type de variable
Sheets("Feuil2").Select  '// Onglet de travail "Feuil2"
For Each Cell In Range("M2:O100")   '// Boucle de test des cellules sur la plage ("O2:O100")
   If Cell <> "" Then   '// Detection du contenue des cellules "Différent  de vide"
        Cell.EntireRow.Copy Destination:=Sheets("Archive").Range("A" & Sheets("Archive").Range("A65536").End(xlUp).Row + 1) '// Copie la ligne versl'onglet "Archive" sur la premiére ligne vide.
        Cell.EntireRow.Delete   '// Supprime la ligne
    End If
Next
'Call Test
End Sub