Sub Regrouper_TXT()
Dim chemin$, i&, a$(), n As Byte, fichier$, nn&, x%, texte$
chemin = ThisWorkbook.Path & "\"
i = 3
ReDim a(i) 'tableau VBA, base 0
a(0) = ";Calage en Pression"
a(1) = ";Localisation Heure Valeur"
a(2) = ";--------------------------"
For n = 1 To 3 'pour 3 dossiers, à adapter
fichier = Dir(chemin & "Dossier" & n & "\") '1er fichier du dossier
While fichier <> ""
nn = nn + 1
x = FreeFile
Open chemin & "Dossier" & n & "\" & fichier For Input As #x 'accès en lecture séquentielle
Line Input #x, texte: Line Input #x, texte: Line Input #x, texte 'saute 3 lignes
While Not EOF(1) 'EndOfFile : fin du fichier
Line Input #x, texte 'récupère la ligne
ReDim Preserve a(i)
a(i) = texte
i = i + 1
Wend
Close #x
fichier = Dir 'fichier suivant
Wend
Next
'---restitution---
x = FreeFile
Open chemin & "Fichier_Pression_Final.txt" For Output As #x 'accès en écriture
Print #x, Join(a, vbLf)
Close #x
MsgBox nn & " fichiers textes ont été regroupés dans 'Fichier_Pression_Final.txt'..."
End Sub