Sub Sauvegarde()
' Sur le bureau
ActiveWorkbook.SaveAs Filename:="C:\Users\***\Desktop\" & Range("B1") & ".txt", _
FileFormat:=xlText, CreateBackup:=False
' Dans le répertoire courant
ActiveWorkbook.SaveAs Filename:=Path & "\" & Range("B1") & ".txt", _
FileFormat:=xlText, CreateBackup:=False
End Sub