oups oublier ceci
sur ta feuille3 un bouton avec comme macro de quoi dans se style
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\cookies.txt", FileFormat:=xlText, _
CreateBackup:=False
Application.DisplayAlerts = True
Sheets("Feuil1").Activate
End Sub