Sub XLSMToXLSX()
Dim Chemin$, Fichier$, NFic$
Application.DisplayAlerts = False
Chemin = "C:\TEMP\" ' nom dossier à adapter
Fichier = Dir(Chemin & "*.xlsm")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
NFic = Replace(ActiveWorkbook.Name, ".xlsm", "")
ActiveWorkbook.SaveAs Filename:=Chemin & NFic & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Fichier = Dir
Loop
Application.DisplayAlerts = True
End Sub