Supprimer lignes dans tableaux croisés

[Anne]

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...

 

[Anne]

Petite info supplémentaire :

L'éffacement d'une ligne provoque l'effacement de la ligne correspondante sur le classeur dependant... Ce dernier contient une colonne de plus, ce qui en résulte le non effacement de la ligne mais seulement des valeurs des cellules (remplacées par #REF!)

En espérant vous éclairer un peu plus sur mon problème...