Automatisation de remplacement de cellules

Bonjour,

Je débute vraiment en VBA et je souhaite automatiser le remplacement de cellules selon un certain critère :

-Un fichier portant la macro DK_1.xlsm que j'ai tenté ouvre un fichier DK_res.xlsx et copie la feuil1 dans DK_1.xlsm ensuite je souhaite comparer toutes les cellules appratenant à la plages B et au déla (cellules qui ne finissent pas en DK_ avec la colonne A de feuil1) si correspondance remplacer la cellule en question par sa ligne-> l'idée est de retrouver une colonne A intacte et une plage de donnée au final qu'avec des cel finissant en DK_

Manuellement dans le fichier source DK_res.xlsx la feuil2 pour mieux comprendre mon besoin :

Dans la feuil2 du fichier (Remplacement des cellules tagés en jaune par leur ligne dans Feuil1) C'est exactement ce qui se passe pour les lignes 12,22,23,24,25
J'essaie de réfléchir à un algo plus simple en parallèle. Merci par avance pour votre aide Bonne journée

Cordialement;

Pièce jointe 658884Pièce jointe 658885

Bonjour
La demande n'est pas claire, au moins pour moi
et dans tous les cas ton bonheur se trouve dans Powerquery avec zéro codage
même si tu n'as jamais utilisé cet outil, il est simple et très efficace
il suffit de mettre les données de départ sous forme de tableau structuré
démarrer Powerquery ; importer les données et fais la jointure des tables selon le critère de choix et tu aura le résultat souhaité
l'actualisation est simple, il suffit de cliquer sur actualiser

un exemple