Private Sub ComboBox2_Change()
If Peut = False Then Exit Sub
Peut = False 'empêche le changement
Dim C As Range
Set C = Cells.Find(what:=Me.ComboBox2.Text, LookIn:=xlValues, lookat:=xlWhole)
...
Me.TextBox9 = Cells(C.Row, 10).Text 'Fax
ComboBox2 = ""
Peut = True
End Sub