XL 2016 VBA - Besoin d'aide sur erreur Macro

[tetchounie]

Bonjour,

Je suis face à un problème que j'essaye de résoudre depuis hier soir sans comprendre mon erreur.
Ma macro bloque sur un ActiveSheet.Paste après avoir créer un nouveau classeur mais je ne comprend pas. Ci-dessous le code

Sub Séparation()

Dim DerniereLigne As Long
Dim DerniereRef As Long
Dim Nomfichier As String
Dim i As Integer
Dim j As Integer


DerniereLigne = Range("a" & Rows.Count).End(xlUp).Row

For i = 1 To DerniereLigne
Cells(i, 4).Value = Left(Cells(i, 2), InStr(Cells(i, 2).Value, " ") - 1)
Next

Range(Cells(2, 4), Cells(DerniereLigne, 4)).Copy
Cells(1, 6).Select
ActiveSheet.Paste
ActiveSheet.Range(Cells(1, 6), Cells(DerniereLigne - 1, 6)).RemoveDuplicates Columns:=1, Header:=xlNo

DerniereRef = Range("F" & Rows.Count).End(xlUp).Row

For j = 1 To DerniereRef
Range("A:D").Select
Selection.AutoFilter Field:=4, Criteria1:=Cells(j, 6).Value
Nomfichier = Cells(j, 6)
Columns("A:D").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
Range("A1").Activate
ActiveSheet.Paste
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Rows("1:1").Select
Selection.Delete Shift:=xlUp
ChDir "C:\Users\TETCHOUNIE\Desktop\"
ActiveWorkbook.SaveAs Filename:=Nomfichier, _
        FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close

Next

End Sub

En fait le but est d'enregistrer dans des fichiers séparés au format txt pour import dans un logiciel les différents codes articles et quantités correspondantes.
Le fichier de base comprend 3 colonnes
Je n'ai peut-être pas utilisé la méthode la plus simple mais je ne maîtrise pas assez VBA pour faire mieux donc si vous avez d'autres astuces, cela m'intéresse.

Merci par avance pour votre aide.

 

[tetchounie]

J'ai oublié de préciser que l'erreur qui ressortait était l'erreur 1004

 

[cp4]

Bonjour,

Mets ta procédure Séparation dans un module standard au lieu de ThisworkBook.
Le fichier texte généré par ton code en retour.

 

[tetchounie]

Super Merci beaucoup