Insérer des valeurs d'un classeur à l'autres

Salut à tous,

J'ai besoin d'aide sur mon code je n'arrive pas à obtenir ce que je veux.

Je m'explique : Je veux transférer une partie des données de mon tableau appelé base_de_données vers mon tableau BDD_carte SPC et j'arrive pas à utiliser la commande

 Selection.Insert Shift:=xlDown

Sub insererLigneBDDSPC()

    Sheets("Accueil").Activate
        m = Sheets("Accueil").Cells(1, 33)
        t = Sheets("Accueil").Cells(1, 1)
        base_de_données = "BDD_" & m
        Suptol = "Suptol 1.4.0 - " & m
        BDD = "BDD " & t & ".xlsx"
        classeur = t & ".xlsm"
Sheets("Accueil").Activate
Sheets("Accueil").Cells(2, 33).Activate
If ActiveCell.Text Like "*Trumpf*" Then
chemin = "C:\Users\ebabinski\Desktop\premières missions\suivis carte SPC.xlsx"
ElseIf ActiveCell.Text Like "*LVD*" Then
chemin = "S:\Fabrication\Tolerie\TPM\Données\Opérations quotidiennes\" & "LVD\" & BDD
End If

Sheets(base_de_données).Activate
    Range(Sheets(base_de_données).Cells(8, 9), Sheets(base_de_données).Cells(8, 14)).Select
Workbooks.Open (chemin)
    Selection.Insert Shift:=xlDown

'ActiveWorkbook.Save
'ActiveWorkbook.Close
End Sub

j'ai fait comme ça et ça marche

Sub insererLigneBDDSPC()

    Sheets("Accueil").Activate
        m = Sheets("Accueil").Cells(1, 33)
        t = Sheets("Accueil").Cells(1, 1)
        base_de_données = "BDD_" & m
        Suptol = "Suptol 1.4.0 - " & m
        BDD = "BDD " & t & ".xlsx"
        classeur = t & ".xlsm"
Sheets("Accueil").Activate
Sheets("Accueil").Cells(2, 33).Activate
If ActiveCell.Text Like "*Trumpf*" Then
chemin = "C:\Users\ebabinski\Desktop\premières missions\suivis carte SPC.xlsx"
ElseIf ActiveCell.Text Like "*LVD*" Then
chemin = "S:\Fabrication\Tolerie\TPM\Données\Opérations quotidiennes\" & "LVD\" & BDD
End If

Sheets(base_de_données).Activate
   Range(Sheets(base_de_données).Cells(8, 9), Sheets(base_de_données).Cells(8, 14)).Select 'selectionne les données à copier
    Selection.Copy

Workbooks.Open (chemin)
    Cells(6, 4).Select
    Selection.Insert Shift:=xlDown
    Selection.PasteSpecial Paste:=xlPasteValues

Bonjour

Tu devrais joindre ton fichier.

Bye !