RechercheV Index Equiv

  For b = 1 To nbcol[COLOR=Red][B] - 1[/B][/COLOR]: Set Lbl(b).GrLabel = Me("Label" & b): Next b

Private Sub Textmot_Change()
 Me.ListBox1.Clear
 i = 0
 Set Plage = f.[Intuitive].CurrentRegion
 Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 1)
 Set c = Plage.Find(Me.Textmot, , , xlPart)
[B] ReDim tabTmp(1 To 1)
 tabTmp(1) = ""[/B]
 If Not c Is Nothing Then
      premier = c.Address
      Do
[B]          test = True
          For iTmp = LBound(tabTmp) To UBound(tabTmp)
            If tabTmp(iTmp) = c.Row Then test = False
          Next iTmp
          
          If test Then
            cpt = cpt + 1
            ReDim Preserve tabTmp(1 To cpt)
            tabTmp(cpt) = c.Row[/B]
            Me.ListBox1.AddItem
            Lig = c.Row - Plage.Row + 1
            For col = 1 To nbcol
              Me.ListBox1.List(i, col - 1) = Plage.Cells(Lig, col)
            Next col
            i = i + 1
          [B]End If[/B]
        Set c = Plage.FindNext(c)
      Loop While Not c Is Nothing And c.Address <> premier
  End If
End Sub

Private Sub ComboBox1_Change()
Dim c As Range, plage As Range, x As Long, firstAddress, Tb() As Variant
If ComboBox1.ListIndex = -1 Then Exit Sub
ListBox1.Clear
With Sheets("Création")
    Set plage = .Range("A[B][COLOR=Red]3[/COLOR][/B]:A" & .Range("A65000").End(xlUp).Row)
    Set c = plage.Find(ComboBox1.Text)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            x = x + 1
            ReDim Preserve Tb(1 To 2, 1 To x)
            Tb(1, x) = .Cells(c.Row, 2)
            Tb(2, x) = c.Row
            Set c = plage.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
[COLOR=Red][B]If UBound(Tb, 2) = 1 Then
    Me.ListBox1.AddItem Tb(1, 1)
    Me.ListBox1.List(0, 1) = Tb(2, 1)
Else
    ListBox1.List = Application.Transpose(Tb)
End If[/B][/COLOR]
Set c = Nothing
Erase Tb

End Sub