Sub Fields()
Dim fs As Object, a As Object, i As Long, j As Long, k As Long, Ligne As String, Liste
'Crée le nom "snoopy" pour les données de la Feuil3
ThisWorkbook.Names.Add "snoopy", Sheets("Feuil3").Range("A1").CurrentRegion
'Liste des noms à parcourir et à enregistrer
Liste = Array("toto", "titi", "blabla", "bloblo", "truc", "machin", "snoopy")
Set fs = CreateObject("Scripting.FileSystemObject")
'i passe de 1 à 7 pour les 7 plages
For i = 1 To 7
'on sélectionne les plages une à une
Application.Goto Reference:=Liste(i - 1)
'on crée le fichier
Set a = fs.CreateTextFile(ThisWorkbook.Path & "\" & Liste(i - 1) & ".txt", True)
'Pour chaque ligne de la plage
For j = 1 To Range(Liste(i - 1)).Rows.Count
Ligne = ""
'Pour chaque colonne de la ligne on colle les informations avec un séparateur tabulation (chr(9))
For k = 1 To Range(Liste(i - 1)).Columns.Count
Ligne = Ligne & Range(Liste(i - 1)).Cells(j, k).Value & Chr(9)
Next k
If Len(Ligne) > 0 Then Ligne = Left(Ligne, Len(Ligne) - 1)
'On écrit la ligne dans le fichier texte
a.writeline Ligne
Next j
'on ferme le fichier
a.Close
Next i
Set a = Nothing
Set fs = Nothing
End Sub