Do
NomSauve = Application.GetSaveAsFilename(InitialFileName:="Nom DeSauvegarde", FileFilter:="fichier excel, *.xls", Title:="Entrer un nom")
If NomSauve = cancel Then Exit Sub
If NomSauve <> "Faux" Then Exit Do
Loop
On Error GoTo fin
ActiveWorkbook.SaveAs Filename:= _
NomSauve _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Exit Sub
fin:
rep = InputBox("le fichier existe déjà", "enregistrer sous", NomSauve)
If rep = cancel Then
Exit Sub
Else
ActiveWorkbook.SaveAs
End If