Sub Traitement()
'myDearFriend! 23/01/06
Dim F As Worksheet
Dim Chemin As String
Chemin = ThisWorkbook.Path & '\\'
Application.ScreenUpdating = False
For Each F In Worksheets
F.Copy
ActiveWorkbook.SaveAs Filename:=Chemin & ActiveWorkbook.Sheets(1).Name _
& '.txt', FileFormat:=xlText
ActiveWorkbook.Close False
Next F
Application.ScreenUpdating = True
End Sub