Bonjour,
Testes avec ceci :
Private Sub TextBox2_Change()
Dim Plage As Range
Dim Cel As Range
With Worksheets("Litiges"): Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)): End With
Set Cel = Plage.Find(TextBox2.Text, , xlValues, xlWhole)
If Not Cel Is Nothing Then
ComboBox1.Text = Cel.Offset(, 1).Value
ComboBox2.Text = Cel.Offset(, 6).Value
TextBox1.Text = Cel.Offset(, 9).Value
ComboBox3.Text = Cel.Offset(, 10).Value
End If
End Sub