Supprimer lignes dans tableaux croisés

Bonsoir,

J'ai un petit problème...

J'ai deux classeurs xls, que j'ai liées par liaisons croisés.

- Une fois une ligne supprimée du classeur source, la ligne correspondante dans le classeur dépendant est aussitôt remplacée par le résultat #REF!...

Je souhaiterais que la ligne se supprime complétement...

J'ai essayé le code suivant, ca ne marche pas ! :

Sub essai()
Worksheets("dependant").Select
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
For R = DerniereLigne To 1 Step -1
If Columns(1).Rows(R) = "[source.xls]Feuil1!#REF!" Then
Rows(R).Delete
End If
Next R
End Sub


seulement, c'est la valeur de la cellule (=[source.xls]Feuil1!#REF!) qui renvoie #REF!...
Donc je souhaiterais dans le code suivant effacer toute ligne contenant la valeur #REF!

Voilà, Merci de toute aide précieuse...