Enregistrer sous .txt en incrementant

Sub Archivtext()
Cells(1, 2) = Cells(1, 2) + 1
    Columns("A:I").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Temp\" & Format(Date, "yyyymmdd") & "-" & Cells(1, 2) & ".txt", FileFormat:= _
        xlTextMSDOS, CreateBackup:=False
        Cells(1, 2) = Cells(1, 2) + 1
Set wbSource = ActiveWorkbook
wbSource.Close SaveChanges:=False

'On assigne une variable à ce fichier, dès l’ouverture, il devient le fichier actif
'Ici, on insère le code qui applique les changements voulus au fichier ouvert, qui sera ensuite refermé

'On ferme le fichier sans le sauver

End Sub