Private Sub CommandButton4_Click()
Dim cel As Range, plage$, no_ligne&
plage = (ComboBox1.ListIndex + 2) & " - " & (ComboBox33.ListIndex + 2) & " - " & (ComboBox34.ListIndex + 2)
With Sheets("data").Range("dz2:dz65536")
Set cel = .Find("*", , xlFormulas, xlByRows)
If Not cel Is Nothing Then
no_ligne = cel.Row
End If
With Sheets("data")
TextBox1.Value = .Cells(no_ligne, 3).Value
TextBox2.Value = .Cells(no_ligne, 4).Value
TextBox3.Value = .Cells(no_ligne, 5).Value
End With
End With