problèmes de liens

Sub Changer_Extension_xlsx_En_xlsm()
  With Application
    'pas d'affichage d'alerte
    .DisplayAlerts = False
    'pas de mise à jour de l'écran
    .ScreenUpdating = False
  End With

  Dim objFSO, objDossier, objFichier, objListe
  Dim Racine, ExtX, ExtM
  ExtX = ".xlsx"
  ExtM = ".xlsm"
  On Error Resume Next
  'mets le chemin de ton répertoire ici
  Racine = "C:\Users\Fred\Desktop\"
  'le nom du fichier .txt qui contiendra la liste des classeurs .xlsx
  laListe = "Liste changements ext.txt"

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objDossier = objFSO.GetFolder(Racine)
  Set objListe = objFSO.CreateTextFile((Racine & "\" & laListe), 2)

  If (objDossier.Files.Count > 0) Then
     For Each objFichier In objDossier.Files
        's'il y a .xlsx comme extension,
        If Right(objFichier.Name, 5) = ExtX Then
          'on inscrit le nom du classeur dans la liste
          objListe.WriteLine objFichier.Name
          'on modifie l'extension en .xlsm
          NouveauNom = Left(objFichier.Name, Len(objFichier.Name) - 5) & ExtM
          'on ouvre le classeur
          Workbooks.Open Filename:=Racine & objFichier.Name
          'on l'enregistre en .xlsm
          ActiveWorkbook.SaveAs Filename:=Racine & NouveauNom, _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
          'on ferme
          ActiveWindow.Close
         'on supprime le classeur xlsx
         'Kill Racine & objFichier.Name
        End If
     Next
   End If

  objListe.Close
  Set objListe = Nothing
  Set objDossier = Nothing
  Set objFSO = Nothing

With Application
  .DisplayAlerts = True
  .ScreenUpdating = True
End With

End Sub

Private Type SHFILEOPSTRUCT
   hwnd As Long
   wFunc As Long
   pFrom As String
   pTo As String
   fFlags As Long
   fAnyOperationsAborted As Long
   hNameMappings As Long
   lpszProgressTitle As String
End Type

Private Const FO_DELETE As Long = &H3
Private Const FOF_ALLOWUNDO As Long = &H40

Private Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" _
                                         (lpFileOp As SHFILEOPSTRUCT) As Long
 
Public Function ZSendFileToRecycleBin(ByVal sFileName As String, Optional _
  bAskConfirmation As Boolean = True, _
   Optional ByVal hwnd As Long = 0) As Boolean
 
Dim shFile As SHFILEOPSTRUCT
Dim wResult As Long
Dim wFlags As Long
 
      If Not bAskConfirmation Then wFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION _
        Else wFlags = FOF_ALLOWUNDO
   
      With shFile
         .hwnd = hwnd
         .wFunc = FO_DELETE
         .pFrom = sFileName & vbNullChar & vbNullChar
         .fFlags = wFlags
      End With
   
      wResult = SHFileOperation(shFile)
      ZSendFileToRecycleBin = (wResult = 0) And (shFile.fAnyOperationsAborted = 0)
End Function

Kill Racine & objFichier.Name

ZSendFileToRecycleBin Racine & objFichier.Name 'False ou True