With ActiveWorkbook
If Val(Application.Version) < 12 Then
' You use Excel 97-2003
ActiveWorkbook.SaveCopyAs Chemin & "\" & nom
Else
' You use Excel 2007-2010
srcWbk = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
ActiveWorkbook.SaveAs Chemin & "\" & nom, FileFormat:=56
ActiveWorkbook.SaveAs srcWbk, FileFormat:=56
End If
End With