Private Sub ListBox5_Click()
Dim cptr As Byte, Article As String, Lig As Byte, n As Integer
For cptr = 0 To ListBox5.ListCount - 1
If ListBox5.Selected(cptr) = True Then
Article = ListBox5.List(ListBox5.ListIndex, 9)
With Sheets("Suivi NC")
Lig = .Columns("G").Find(Article, .range("G8"), xlValues, xlWhole).Row
Tcomment.Value = Cells(Lig, "Q")
Tavleader.Value = Cells(Lig, "X")
Tdateleader.Value = Cells(Lig, "W")
Tdatecrea.Value = Cells(Lig, "U")
Tredact.Value = Cells(Lig, "V")
Tstatuts.Value = Cells(Lig, "H")
Tformatete.Value = Cells(Lig, "F")
TNCtete.Value = Cells(Lig, "G")
Tzonetete.Value = Cells(Lig, "N")
Tatatete.Value = Cells(Lig, "L")
TDQn.Value = Cells(Lig, "R")
TNdqN.Value = Cells(Lig, "T")
Tdero.Value = Cells(Lig, "S")
TamAero.Value = Cells(Lig, "J")
TDeroAmaero.Value = Cells(Lig, "K")
End With
End If
Next
End Sub