Private Sub ListBox1_Change()
Dim i As Variant, j As Byte
With Sheets("Données")
i = Application.Match(ListBox1, .[A:A], 0)
If IsError(i) Then i = 2 '2 => ligne vide
For j = 1 To 12
Me("TextBox" & j) = .Cells(i, j)
Next
End With
Label35 = IIf(i > 2, "Ligne " & i, "") 'après avoir créé Label35
End Sub