Sub donneesBIS()
Dim Chemin$, Ligne&, f As Workbook, c As Range, tablo, x, n As Byte
Application.ScreenUpdating = False
Chemin = ThisWorkbook.Path & "\"
Set fic_donnees = ThisWorkbook
'fic_donnees.Sheets(2).Rows("2:" & Rows.Count).ClearContents
Ligne = 2
Fichier = Dir(Chemin & "*.txt")
While Fichier <> ""
Workbooks.Open (Chemin & Fichier)
Set f = ActiveWorkbook
tablo = f.ActiveSheet.Range("A1:A" & f.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
x = Split(tablo(n, 1), "=")
Set c = fic_donnees.Sheets("Feuil2").Rows(1).Find(CStr(x(0)), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
fic_donnees.Sheets("Feuil2").Cells(Ligne, c.Column) = x(1)
End If
Next
f.Close
Ligne = Ligne + 1
Fichier = Dir
Wend
Application.ScreenUpdating = True
End Sub