Private Sub ComboCode_Change()
If ComboCode <> "" [B]And (Not Columns("A").Find(ComboCode, , xlValues, xlWhole) Is Nothing)[/B] Then
Lign = ComboCode.ListIndex + 2
TextNom = Range("J" & Lign)
TextPrenom = Range("K" & Lign)
TextAdresse = Range("L" & Lign)
Else
TextNom = ""
TextPrenom = ""
TextAdresse = ""
End If
End Sub