Sub enregistrement()
Dim nom
nom = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, filefilter:=" Classeur Microsoft Excel,*.xls", FilterIndex:=2, Title:="Enregistrer Sous")
If nom = False Then
Exit Sub
End If
On Error GoTo correction
ActiveWorkbook.SaveAs Filename:=nom
Exit Sub
correction:
nom = Application.GetSaveAsFilename(filefilter:=" Classeur Microsoft Excel,*.xls", FilterIndex:=1, Title:="Enregistrer Sous")
Resume
End Sub