Sub Resultat()
Dim fichier$, col%, x%, texte$, s, a(), n&
fichier = ThisWorkbook.Path & "\TRACABILITY_REPORT.txt"
If Dir(fichier) = "" Then MsgBox "Fichier '" & fichier & "' introuvable !", 48: Exit Sub
col = 5 'colonne du tableau s à traiter, à adapter
x = FreeFile
Open fichier For Input As #x 'ouverture pour lecture séquentielle
While Not EOF(1) 'EndOfFile : fin du fichier
Line Input #x, texte 'récupère la ligne
s = Split(texte, "|")
If UBound(s) >= col Then
If Val(s(col)) Then
ReDim Preserve a(n) 'base 0
a(n) = Val(s(col))
n = n + 1
End If
End If
Wend
Close #x 'fermeture
'---restitution---
With Feuil1 'CodeName de la feuille, à adapter
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With [A2] '1ère cellule de destination, à adapter
If n Then
.Resize(n) = Application.Transpose(a) 'Transpose est limitée à 65536 lignes
.Resize(n).NumberFormat = "0.00" 'format nombre à 2 décimales
End If
.Offset(n).Resize(Rows.Count - n - .Row + 1).Delete xlUp 'RAZ au dessous
End With
With .UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub