Sub ExportTxt(sh As Worksheet)
'// Une variable ....
Dim Path As String
' // Si la feuille est omise on se cale sur la feuille active
If sh Is Nothing Then Set sh = ActiveSheet
' // On récupère le répertoire actif
Path = ActiveWorkbook.Path & "\"
' // On lance la sauvegarde
ActiveWorkbook.SaveAs _
Filename:=Path & sh.Name & ".txt", _
FileFormat:=xlText, CreateBackup:=False
' // Pas trop compris qui doit se fermer la feuille ou le classeur
' // On ferme le classeur en le sauvegardant
ActiveWorkbook.Close True
End Sub