Hi,
Le souci vient de la formule inscrite temporairement dans la cellule M2 de l'onglet "Travail"
Comme tes codes sont précédés de 3 "0", la formule ne trouve donc pas de correspondance dans la liste "MAT"
Essaie en modifiant dans le code :
.Range("M2").FormulaR1C1 = "=COUNTIF(MAT,LEFT(""000""&extraction!R[18]C1,4)&""*"")>0"
J'ai juste rajouté ""000""& à la formule
Bon courage
PS, comme tu n'avais plus qu'un onglet de recherche, l'utilisation d'une boucle n'était plus nécessaire, mais comme ça fonctionne aussi, tu peux laisser.
Bonne soiré