Bonjour,
dans ce cas autant "duppliquer tous les onglets dans un nouveau fichier qui lui pourra être enregistre au format xls compatible
pour tous puisqu'il n'y a plus besoin des macros.
Sub Macro1()
'
Dim chemin As String
chemin = ThisWorkbook.Path
Sheets.Select
Sheets.Copy
ChDir chemin
ActiveWorkbook.SaveAs Filename:=chemin & "\Sourcesansmacro.xls" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub