Sub version()
Dim i As Long
Application.ScreenUpdating = False
[A1:C1] = _
Array("ITEM1", "ITEM2", "ITEM3")
[A2:C25] = _
Array("=""XYZ ""&ALEA.ENTRE.BORNES(1,627)&""-""&CHAR(64+ROW())", "=""abc""&ROW()-1", "=""efg""&ROW()-1")
[A1].CurrentRegion.Borders.LineStyle = 1
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
For i = 2 To 25 Step 5
Cells(i, "A") = [A5]
Next
End Sub
If c.Value Like "*" & TextBox1.Text & "*" Then
If TextBox1 <> "" Then
For ligne = 15 To 300 'reprends les datas ci-dessus.
If Cells(ligne, 2) Like "*" & Ucase(TextBox1) & "*" Then
Range("A" & ligne & ":C" & ligne).Interior.ColorIndex = 43 'Donne la couleur verte des sélection après recherche.
ListBox1.AddItem Cells(ligne, 1) 'Cette ligne et ci-dessus détermine via les 'Propriétés' les espacement dans la ListBox.
ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(ligne, 4)
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(ligne, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(ligne, 3)
End If
Next
End If
Textbox1