Code pour chercher et supprimer dans une autre feuille

Bonjour à tous,

Je sollicite votre aide car j'ai deux fichiers communiquant de stock de marchandise. Dans le premier fichier toutes les marchandises sont reférencées avec des onglets en fonction du type de marchandise (copie gestion des spéciaux). Le second fichier représentent les différents racks avec les emplacements (racks). Une macro me permet de supprimer une ligne de marchandise du 1 er fichier. J'aimerai trouver une macro qui permet du supprimer en même temps la marchandise dans les deux fichiers grâce à la recherche de l'emplacement.

Merci pour votre aide.

J'ai essayé ce code mais il ne supprime rien du tout

Sub TESTEFFACE()

'

' TESTEFFACE Macro

'

'

ActiveCell.Select

Selection.Copy

Windows("RACKS.xls").Activate

Sheets(Array("Feuil1", "Rack 1 données", "Rack 3 données")).Select

Sheets("Feuil1").Activate

ActiveCell.Offset(113, 1).Range("A1:L1").Select

Application.CutCopyMode = False

Selection.ClearContents

ActiveWorkbook.Save

ActiveWindow.Close

End Sub