Option Explicit
Sub Enregistrer_sous_xlsx()
Application.DisplayAlerts = False
'adapter les chemin et nom
ActiveWorkbook.SaveAs Filename:="C:\Users\00\Downloads\toto.xlsx", _
FileFormat:=51, CreateBackup:=False
Application.DisplayAlerts = True
End Sub