Sub PasseEn2003()
chemin = ThisWorkbook.Path
fichier = Split(ThisWorkbook.Name, ".")(0) & ".xls"
ActiveWorkbook.SaveAs Filename:=chemin & fichier, FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub