Lire les données dans un autre classeur excel

Bonjour, Je suis débutante en VBA et le peu que je connaisse c'est grâce au forum !!

Voilà mon soucis je souhaite créer un programme qui lise les données dans un autre classeur excel fermé (qui contient les même données que dans mon classeur actif) et effacer dans le classeur fermé les cellules dont le contenu est semblable aux cellules de mon classeur ouvert.
- Je ne maîtrise pas très bien les boucles (donc je préfère détailler)
- J'ai un message d'erreur " Erreur d'xecution 1004, erreur définie par l'application ou l'objet"

voici mon programme :

Sub choix_table_gnl()

Dim appxl As Excel.Application
Dim fichier As Window
Dim feuille As Worksheet
Set appxl = CreateObject("Excel.application")
Dim read As Variant

With appxl
.Workbooks.Open "C:\Documents and Settings\N0762215\My Documents\SEMINAIRE 2012\Test_classeur\Liste_diner.xls"
.Visible = False
End With

Set fichier = appxl.Windows("Liste_diner.xls")
fichier.Activate
Set feuille = appxl.Sheets("Liste_diner_1")

For i = 2 To 539
feuille.Range("D" & i).Select

For j = 8 To 18
If Activesheet.Range("D" & j) = Workbooks("Liste_diner").Sheets("Liste_diner_1").Range("D" & i) Then
Workbooks("Liste_diner").Sheets("Liste_diner_1").Range("D" & i).Delete
Workbooks("Liste_diner").Sheets("Liste_diner_1").Range("D" & i).Delete
Workbooks("Liste_diner").Sheets("Liste_diner_1").Range("D" & i).Delete

appxl.Workbooks("Liste_diner.xls").Save
appxl.Workbooks("Liste_diner.xld").Close

End If
Next
Next

End Sub