Private Sub CommandButton1_Click()
N = Application.Match(Val(NoFlacon), Sheets("Feuil1").Range("A1:A1000"), 0) ' Où se trouve le N° flacon
Fournisseur = Sheets("Feuil1").Cells(N, 2) ' Extraire le fournisseur
Nom = Sheets("Feuil1").Cells(N, 3) ' et le nom du fournisseur
NoLot = Sheets("Feuil1").Cells(N, 4) ' ainsi que le N° de lot.
End Sub