Microsoft 365 COPIER CELLULES ADJACENTE

[ABDELHAK]

Bonjour à tous,
J’’aimerais vous exposer un nouveau problème avec lequel je suis bloqué. J’ai un tableau ( A1 à DWW501 ) Feuil1
La macro doit :
1. Comparer les cellules adjacentes des colonnes B et C
2. Si elles sont identiques exécuter un copier coller sur la Feuil2.
3. Les valeurs des cellules du tableau sont le chiffre1 avec fond vert
4. Effacer la colonne C.
5. Comparer les cellules adjacentes des colonnes B et D
6. Si elles sont identiques exécuter un copier coller sur la Feuil2.
7. Les valeurs des cellules du tableau sont le chiffre1 avec fond vert
8. Effacer la colonne D.
Et ainsi de suite.

.Exemples :
Si les cellules B4 et C4 sont les mêmes, alors sélectionnés les cellules ( A1 : C3 ) et ( A4 : C4 ) et les copier dans la Feuil2 en haut à gauche.
Si les cellules B15 et C15 sont les mêmes, alors sélectionnés les cellules ( A1 : C3 ) et ( A15 : C15 ) et les copier dans la Feuil2 en haut à gauche.
Et ainsi de suite.
Je joins un fichier excel.
En espérant avoir été compris.
Merci d’avance pour votre aide.
ABDELHAK.