selectionner le fichier excel pour BD

Public Chemin$
Sub Explorateur_fichier()
'Crée une boite de dialogue de sélection de fichiers :
 With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    If .SelectedItems.Count > 0 Then
        Chemin$ = .SelectedItems(1)
    End If
End With
End Sub

Private Sub UserForm_Initialize()
    Dim m As Byte, i As Long, x As Long, k As Byte
    Dim Wb As Object, chemin$
    Dim lig As Long

    ListBox1.Clear

    chemin = Application.GetOpenFilename()

Private Sub UserForm_Initialize()
Dim Plg(), Col&, lig&
ListBox1.Clear
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Numéro", 40
       .Add , , "Indice", 40
       .Add , , "Quantité", 40
       .Add , , "désignation", 150
       .Add , , "Matiere", 40
       .Add , , "Protection", 40
       .Add , , "Observations", 100
    End With
    .View = lvwReport
    .FullRowSelect = True
    .Gridlines = True
'Chargement des données (modifs)
    Workbooks.Open Filename:=Chemin
    Plg = ActiveWorkbook.ActiveSheet.UsedRange.Value
    ActiveWorkbook.Close False
    For lig = LBound(Plg, 1) To UBound(Plg, 1)
        .ListItems.Add , , Plg(lig, 1)
        With .ListItems(ListView1.ListItems.Count).ListSubItems
            For Col = 2 To 7
                .Add , , Plg(lig, Col)
            Next Col
        End With
    Next lig
'Chargement des données (modifs)
End With
Label10.Caption = "Nous somme le : " & Format(Now(), "dd mmmm yyyy") & ", il est " & Format(Now(), "hh : mm") & " heure"
With ListBox1
    .ColumnCount = 7
    .ColumnHeads = True
    .RowSource = Range("A2:G" & Range("A65536").End(xlUp).Row).Address
End With
End Sub

Sheets("Feuil1").Cells(1, 1).Resize(UBound(Plg, 1), UBound(Plg, 2)) = Plg