ca coince

Private Sub UserForm_Initialize()
Dim Fl1 As Worksheet
Set Fl1 = Sheets("BDD")
Me.Label1 = ActiveCell.Value
With Me.ListBox1
    .ColumnCount = 10
    .ColumnWidths = "60;60;60;60;60;60;60;60;60;60"
    .AddItem
    For i = 1 To 10
        .List(0, i - 1) = Replace(Fl1.Cells(1, i).Value, Chr(10), "")
    Next i
    Set c = Fl1.Columns([COLOR="Red"][B]1[/B][/COLOR]).Find(ActiveCell.Value)
    If Not c Is Nothing Then
        Firstaddress = c.Address
        Do
            .AddItem
            For i = 1 To 10
                .List(.ListCount - 1, i - 1) = Replace(Fl1.Cells(c.Row, i).Value, Chr(10), "")
            Next i
            Set c = Fl1.Columns([COLOR="Red"][B]1[/B][/COLOR]).FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Firstaddress
    End If
End With
End Sub