VBA Copier fichier

Bonjours à tous,

Je suis tout nouveau dans le VBA et je n'ai pas beaucoup de connaissance.

J'ai quand même réussi a tricoter quelque chose qui ne fonctionne pas tout à fait comme je veux.

Tout d'abord, je vous expose mon problème.

Je cherche a copier les fichier qui sont dans la colonne A vers un dossier qui est en Colonne B

Colonne A :

Le nom du fichier pas d'extension.

Colonne B :

Uniquement le nom du dossier.

Exemple

A B

Test1 5MM

Test2 2MM

Test3 5MM

J'ai utiliser un .TXT pour mes tests, mais il s'agit officiellement de .DWG ou .DXF.

N'hésitez pas à me donner des conseils.

Je le fait de façon autodidacte donc ils seront fort apprécié.

Private Sub TEST()

Dim dossier As Variant

Dim CheminDossier As Variant

Dim NomFichier As Variant

Dim fso As Object

dossier = Range("B3").Value 'Va chercher la valeur de la cellule B1

'MsgBox Dossier

CheminDossier = "C:\Users\Dprovencher\Desktop\ABCD\" & dossier

'MsgBox CheminDossier

If Dir("CheminDossier") <> "" Then

Else

MkDir CheminDossier 'Creer le dossier

End If

NomFichier = Range("A3").Value 'Determine le nom du fichier

NomFichier2 = NomFichier & ".txt"

Set fso = CreateObject("Scripting.FileSystemObject")

fso.CopyFile "C:\Users\Dprovencher\Desktop\ABCD" & "\" & NomFichier2, CheminDossier & "\" & NomFichier2

End Sub