Sub Nouvelle_gamme()
Dim ValCherch
Dim ValRemplace
Dim Plage, Desti As Range
'Stop rafraichissement ecran
Application.ScreenUpdating = False
Dim f1, f2, f3 As Worksheet
Set f1 = Sheets("BD"): Set f2 = Sheets("Nouvelle_gamme"): Set f3 = Sheets("Liste_recherche")
f1.Select
'Définition de la...