Private Sub CommandButton1_Click()
Dim fichieractif As String
Dim Cheminactif As String
Dim fichierrecherche As String
fichieractif = ActiveWorkbook.Name
Cheminactif = ActiveWorkbook.Path & '\\*.xls'
fichierrecherche = Application.GetSaveAsFilename(Cheminactif, _
fileFilter:='Fichiers (*.test), *.test', Title:='Nom de fichier test au format texte')
If Not (fichierrecherche = 'FALSE') Then
ActiveWorkbook.SaveAs FileName:= _
fichierrecherche, FileFormat:= _
xlText, CreateBackup:=False
End If
ActiveSheet.Name = 'def'
End Sub