Copier Coller fichiers excel vers un autre avec noms des variables

Public WithEvents Bt As MSForms.CommandButton

Private Sub Bt_Click()
Dim x As Byte 'déclare la variable x (incrément)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)

For x = 1 To 2 'boucle sur les 2 comboboxes
    If UserForm1.Controls("ComboBox" & x).Value = "" Then 'condition : si la combobox est vide
        UserForm1.Controls("ComboBox" & x).SetFocus 'place le curseur dans la combobox
        MsgBox "Vous devez renseigner ce champ !" 'message
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next x 'prochaine combobox de la boucle
Set cs = Workbooks(UserForm1.ComboBox1.Value) 'définit le classeur source
Set os = cs.Sheets(UserForm1.ComboBox2.Value) 'définit l'onglet source
Set oc = Sheets(Bt.Caption) 'définit l'onglet cible
oc.Range("A1").CurrentRegion.Clear 'supprime les anciennes données
Set dest = oc.Range("A1") 'définit la cellule de destination dest
os.UsedRange.Copy dest 'copie et colle les donnés dans dest
Unload UserForm1 'vide et ferme l'UserForm
End Sub