Sub Traitement()
Dim Fichier As String, Chemin As String
Dim LigneTxt
Dim X, L As Integer
Application.ScreenUpdating = False
Chemin = "C:\" ' à adapter
Fichier = Dir(Chemin & "\\*.txt", 0)
L = Range("A65536").End(xlUp).Row + 1
Pas = InputBox("Choix du pas d'échantillonnage (exprimé en secondes) : ", "Traitement de données", "60")
If Pas = "" Then Exit Sub
Do While Len(Fichier) > 0
Open Chemin & Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, LigneTxt
Nb = X Mod Pas
If Nb = 1 Then
Cells(L, 1) = Mid(LigneTxt, 1, 19)
gs = Mid(LigneTxt, 20, 10)
gs = Replace(gs, Chr(9), "")
gs = Replace(gs, Chr(32), "")
Cells(L, 2) = gs
L = L + 1
End If
X = X + 1
Loop
Close #1
X = 0
Fichier = Dir()
Loop
'Tri des données
Range("A1:C" & L).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.ScreenUpdating = True
End Sub