Private Sub VALID_Click()
Dim celluletrouvee As Range
numéro = Userform1.Label3.Caption
Set celluletrouvee = Sheets("Structure").Range("E:E").Find(numéro, lookat:=xlWhole)
Sheets("Structure").Range(celluletrouvee, celluletrouvee).Value = pièces.T2.Text
End sub