Private Sub TextBox1_Change()
Dim LaRecherche As String, Recherche_Conso As String
If TextBox1 <> Empty Then
LaRecherche = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Feuil1").Range("A2:D20"), 2, False)
Recherche_Conso = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Feuil1").Range("A2:D20"), 3, False)
TextBox2.Value = LaRecherche
TextBox4 = Recherche_Conso
Else
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
End If
End Sub