Private Sub ComboBox_nom_Change()
Dim Cherche As Range
Dim Str As String
Str = Me.ComboBox_nom
If Str <> "" Then
With ThisWorkbook.Sheets("Base")
Set Cherche = .Range("C:C").Find(What:=Str, LookIn:=xlValues, LookAt:=xlWhole)
If Not Cherche Is Nothing Then
Me.TextBox_prenom.Text = Cherche.Offset(0, 1)
Me.TextBox_adresse.Text = Cherche.Offset(0, 2)
Me.TextBox_adresse2.Text = Cherche.Offset(0, 3)
Me.TextBox_CP.Text = Cherche.Offset(0, 4)
Me.TextBox_ville.Text = Cherche.Offset(0, 5)
Me.TextBox_dept.Text = Cherche.Offset(0, 6)
Me.TextBox_tel.Text = Cherche.Offset(0, 7)
Me.TextBox_tel2.Text = Cherche.Offset(0, 8)
Me.TextBox_portable.Text = Cherche.Offset(0, 9)
Me.TextBox_email.Text = Cherche.Offset(0, 10)
Me.TextBox_categorie.Text = Cherche.Offset(0, 11)
Me.TextBox_statut.Text = Cherche.Offset(0, 12)
Me.TextBox_note.Text = Cherche.Offset(0, 13)
Set Cherche = Nothing
End If
End With
End Sub