Private Sub Image2_Click()
'Recherche
Dim Ligne As Long
Dim Lien As String
Sheets("Feuil1").Activate
Ligne = Recherche(TextBox1.Text, TextBox2.Text)
TextBox4.Text = Range("L" & Ligne)
TextBox5.Text = Range("M" & Ligne)
TextBox6.Text = Range("N" & Ligne)
TextBox9.Text = Range("Q" & Ligne)
TextBox8.Text = Range("R" & Ligne)
TextBox7.Text = Range("S" & Ligne)
End Sub