Hello.
Tu as une erreur dans la cellule Q2 de "Affinage - IX".
Pour trouver j'ai ajouté la ligne
Range("feuil1!A1") = i& & "---" & j& & "---" & S.Name
dans module17 entre
For j& = 1 To UBound(var, 2)
→ Range("feuil1!A1") = i& & "---" & j& & "---" & S.Name
A$ = Trim(var(i&, j&))
Bien à toi.