Sub blabla()
'Cocher ces réferences
' Microsoft ADO Ext. 6.0 for DDL and Security
' Microsoft ActiveX Data Objects 2.7 Library
Dim stream As New ADODB.stream
Dim i As Long, j As Long, k As Long, Ligne As String, Liste
Sheets("PnL").Select
'Liste des noms à parcourir et à enregistrer
Liste = Array("blabla1", "blabla2", "blabla3")
'i passe de 1 à i pour les i plages
For i = 1 To 3
'on sélectionne les plages une à une
Application.Goto Reference:=Liste(i - 1)
'on crée le fichier
stream.Open
stream.Type = adTypeText
stream.Charset = "utf-8"
'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
stream.WriteText Ligne, 1
Next j
'on ferme le fichier
stream.Position = 3 'skip BOM
Dim BinaryStream As New ADODB.stream
BinaryStream.Type = adTypeBinary
BinaryStream.Mode = adModeReadWrite
BinaryStream.Open
' Strips BOM (first 3 bytes)
stream.CopyTo BinaryStream
stream.Flush
stream.Close
BinaryStream.SaveToFile ThisWorkbook.Path & "\" & Liste(i - 1) & ".txt", adSaveCreateOverWrite
BinaryStream.Flush
BinaryStream.Close
Next i
End Sub