Private Sub ComboBox1_Change()
Dim Nom as Range
With ThisWorkbook.Sheets("Véhicule")
For Each Nom In .Range("B2:B" & .[B65000].End(xlUp).Row)
If CStr(Nom) = CStr(Me.ComboBox1.Value) Then
Me.TextBox1.Value = .Cells(Nom.Row, 2)
Me.TextBox2.Value = .Cells(Nom.Row, 3)
Me.TextBox2.Value = .Cells(Nom.Row, 4)
End If
Next
End With
End Sub