Bonjour j'e pense pas qu'il fasse faire tout dans une seule TextBox
En gros tu as un fichier initial avec les codes produits,une autre avec leur intitulé
Pas besoin de TextBox
Tu créer un nouvel onglet dans la colonne A tu rentres les codes des produits
Puis
''Pour toute les lignes de la feuille crée
limax==Sheets("Feuille Crée").Range ("A1").End(xlDown).Row
For li=1 To rwmax
''tu parcours toute la feuille initiale
rwmax==Sheets("Feuille Initial").Range ("A1").End(xlDown).Row
''boucle qui parcours toute la feuille initiale
For rw=1 To rwmax
If Sheets("Feuille Initial").Range(Cells(rw,1).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Value=Sheets("Feuille Crée").Range(Cells(li,1).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Value Then
''je remplace le code produit par l'intitulé
Sheets("Feuille Crée").Range(Cells(li,1).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Value=Sheets("Feuille Initial").Range(Cells(rw,2).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Value
End If
''Fin de la recherche por ce code dans la feuille initiale feuille
Next rw
Next li
Un truc de ce gout là avec un bouton de lancement