Private Sub CommandButton2_Click()
'Renseignement Manufacturer
Range("G4").Value = TextBox1
Sheets("Feuil1").Range("G4").Value = UCase(TextBox1.Text)
Unload Me
'Renseignement Reference manufacturer
Range("G5").Value = TextBox2
Sheets("Feuil1").Range("G5").Value = UCase(TextBox2.Text)
Unload Me
End Sub