Fichier source pour différents classeurs

Bonjour,

Je précise d'avance que je ne suis pas une habituée de VBA, je débute donc je ne connais pas très bien le système. Je m'excuse donc si je ne suis pas assez précise dans mes explications.

JE vous expose donc le problème, je suis actuellement entrain de créer un tableau de bord pour l'entreprise pour laquelle je travaille.

Je pars de donnée brute que j'affine par une sorte de base de données qui référence et précise mes articles et clients.

J'ai donc de mon fichier exportation récupérer les colonnes qu'il me fallait pour les transférer dans mon fichier "source", qui lie donc "exportation" et "BDD". Fait en passant par des formules (rechercheV...) et du VBA.

Je vous joins le fichier à la fin du message.

sub Copie2()

Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim der1 As Long
Dim der2 As Long
Set wks1 = Sheets("Exportation")
Set wks2 = Sheets("source")
der1 = wks1.Cells(Application.Rows.Count, "A").End(xlUp).Row
der2 = wks2.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1

wks1.Range("A2:A" & der1).Copy
wks2.Range("A" & der2).PasteSpecial Paste:=xlPasteValues
wks1.Range("D2:D" & der1).Copy
wks2.Range("F" & der2).PasteSpecial Paste:=xlPasteValues
wks1.Range("F2:F" & der1).Copy
wks2.Range("H" & der2).PasteSpecial Paste:=xlPasteValues 'changer colonne
wks1.Range("G2:G" & der1).Copy
wks2.Range("J" & der2).PasteSpecial Paste:=xlPasteValues
wks1.Range("J2:J" & der1).Copy
wks2.Range("L" & der2).PasteSpecial Paste:=xlPasteValues
wks1.Range("N2:N" & der1).Copy
wks2.Range("M" & der2).PasteSpecial Paste:=xlPasteValues
wks1.Range("O2:O" & der1).Copy
wks2.Range("N" & der2).PasteSpecial Paste:=xlPasteValues
wks1.Range("R2:R" & der1).Copy
wks2.Range("O" & der2).PasteSpecial Paste:=xlPasteValues
wks1.Range("AF2:AI" & der1).Copy
wks2.Range("P" & der2).PasteSpecial Paste:=xlPasteValues
wks1.Range("AT2:AT" & der1).Copy
wks2.Range("T" & der2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = xlCut
End Sub

Sub Redimensionner()
Dim i As Long
i = 2 + WorksheetFunction.CountA(Range("Exportation!A:A"))
    ActiveSheet.ListObjects("source").Resize Range("A1:T" & i)
End Sub

Sub supdoubons()
Cells.Select
    ActiveSheet.Range("$A$1:$H$43").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _
        , 8), Header:=xlYes
    Range("I11").Select

End Sub

Je précise que pour les années 2016 et 2017 j'ai plus de 500 000 lignes (donc mon fichier est très volumineux); et il y aura des ajouts mensuel.

On dira que cette partie est bouclée, maintenant je souhaite utiliser ce fichier pour plusieurs classeurs Excel (sans pour autant être forcé de l'ouvrir avant chaque traitement) comment puis-je faire pour y parvenir j'ai essayé de rentrer des requêtes et autres bases de données mais je n'y suis pas parvenue.

Quel serait selon vous la solution pour traiter mon problème? et en passant que pensez vous de mon code?

Cordialement,

mon message n'est peut être pas assez explicite?