Bonjour,
Essaie avec ce code (en remplaçant le tien, dans l'évènement "Change" du Combobox)
Private Sub cboNom_Change()
Dim Cel As Range
With Worksheets("Liste")
Set Cel = .Columns(2).Find(Me.cboNom.Value)
If Not Cel Is Nothing Then
Me.TextBox1 = Cel.Offset(, 1).Value
Me.TextBox2 = Cel.Offset(, 2).Value
End If
End With
End Sub
Bonne fin de journée