Pour être plus calir rapidement, le code de la macro :
Sub TraceTest()
Dim feuilleData, feuilleTrame As Worksheet
Dim Emplacement As Range
Dim i, Index, NbFiches, NbPoints As Integer
Dim NomFichier As String
Set feuilleData = ActiveWorkbook.Sheets("Selection")
Set feuilleTrame =...