Private Sub nom_Click()
ListBox1.ColumnWidths = "0 pt;70 pt;0 pt;50 pt;0 pt;70 pt;0 pt;70 pt;0 pt "
t = Sheets("Feuil3").Range("a2:r" & Sheets("Feuil3").Cells(Rows.Count, 1).End(xlUp).Row).Value
X = 1
For i = 1 To UBound(t)
If t(i, 1) = nom.Value Or t(i, 11) = "Code" Then
Te2 = t(i, 2): Te3 = t(i, 3): Te4 = t(i, 4): Te5 = t(i, 5): Te10 = t(i, 10)
t(i, 17) = Format(t(i, 16), "mmmm")
ReDim Preserve T2(10 To 18, 1 To X)
For k = 10 To 18
T2(k, X) = t(i, k)
Next k: X = X + 1: End If: Next i
ListBox1.List = Application.Transpose(T2)
ListBox1.ListIndex = 0
Erase t, T2
C2 = "": T1 = ""
End Sub