Probleme d'importation

bonjour svp je desire importer un fichier mon code importe sauf qu'il y'a une redondance dans le choix du fichier à importer.on me demande à plusieurs reprises de selectionner le fichier à importer.. voici mon code.

Private Sub CommandButton2_Click()
Dim Cheminsource As String, Fichiersource As String
Cheminsource = ThisWorkbook.Path & "\"
Fichiersource = "Fichier A.xlsx" 
ThisWorkbook.Names.Add "plage", _
            RefersTo:="='" & Cheminsource & "[" & Fichiersource & "]tendance'!$A$8:$C$31"
       With Worksheets("tendance")
       Worksheets("tendance").Range("A8:C31").Value = "=plage"
       End With
       Dim a As String
       Dim acces As String
    a = ComboBox1.Value
    acces = "D:\fichier sysdos\stock\" & a & ".xlsx"
       Workbooks.Open acces
     Workbooks("SYSDOS.xlsm").Sheets("tendance").Range("B12:C29").copy Workbooks("" & a &".xlsx").Worksheets("feuil1").Range("B12:C29")

merci d'avance