Macro enregister au format csv sans les dernières colonnes

[iStarOSX]

Bonjour a tous le pro d'Excel.

Voila j'ai une macro qui enregistre une feuille d'un classeur au format ".txt" formaté comme un fichier csv.

Cela fonctionne très bien sous XL2003, mais sous XL 2007 et 2010, Excel me rajoute plein de ";;;;;;" en fin de ligne.

Je ne sais pas comment modifier cela et de quoi cela peut bien venir.

Je cherche depuis toute la journée, mais la j'en perd mon latin.

Voici le bout de code qui me permet d'enregistrer en csv

Sheets("Projet").Select
    Sheets("Projet").Copy
'        Selection.AutoFilter
    Cells.Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
      
    Columns("A:BY").Select
    Selection.Delete Shift:=xlToLeft
    Rows("1:2").Select
    Selection.Delete Shift:=xlUp
    Rows("2:4").Select
    Selection.Delete Shift:=xlUp
    Columns("AX").Select
    Selection.Delete Shift:=xlToLeft
    Columns("AZ:BC").Select
    Selection.Delete Shift:=xlToLeft
    Columns("BB:BB").Select
    Selection.Delete Shift:=xlToLeft
  
    
'Sauvegarde avec le même nom dans le même repertoires que le fichier XL d'origine
    Application.DisplayAlerts = False
    

If FileFolderExists(Chem & "\Projet") Then 'Vérifie si le répertoire existe avec l'instruction en début de module
Else
     MkDir Chem & "Projet"  'Si le répertoire existe pas, création de répertoire
End If

    ActiveWorkbook.SaveAs Filename:=Chem & "Projet\" & Nom & "_Donnees.txt", FileFormat:=xlCSV, CreateBackup:=False
    ActiveSheet.Range("A1").ClearContents
    ActiveWorkbook.Save
    Application.DisplayAlerts = False
    ActiveWindow.Close

J'ai essayé plein de trucs, (modifier le format des "nombres" des cellules, supprimer les dernières colonnes, effacer les données des colonnes), mais il ne veut rien savoir.


Si quelqu’un pouvait m'aider, je l'en remercie d'avance