Bonjour Nossila.
Une proposition :
Private Sub ListBox1_Click()
Dim i%, j%
'Alimentation des Textbox
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) And .List(i, 1) <> "" Then
For j = 0 To 4
Me.Controls("TextBox" & (j + 14)).Value = .List(i, j)
Next j
Exit Sub
Else:
For j = 14 To 18
Me.Controls("TextBox" & j).Value = ""
Next j
End If
Next i
End With
End Sub