Problème à l'ouverture

[PolS]

Problème avec le tri à l'ouverture d'excel

Bonjour,

J'écris une macro dans la quelle je fais un tri selon deux niveaux avec le code suivant:

ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range( _
        "AH2:AH327"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range( _
        "AG2:AG327"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil3").Sort
        .SetRange Range("B1:AH327")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With

Ca fonctionne mais quand j'enregistre et que j'ouvre le fichier j'ai le message d'erreur suivant:

Excel a rencontré un contenu illisible

avec le fichier journal généré suivant:

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?> 
- <recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main">
  <logFileName>error036520_06.xml</logFileName> 
  <summary>Des erreurs ont été détectées dans le fichier « C:\Nouveau dossier\Classeur1.xlsm »</summary> 
- <removedRecords summary="Liste des enregistrements supprimés ci-dessous :">
  <removedRecord>Enregistrements supprimés: Tri dans la partie /xl/worksheets/sheet3.xml</removedRecord> 
  </removedRecords>
  </recoveryLog>

A quoi est-ce dû?

Merci de votre aide,

Paul.