Salut Redamento,
Si j'ai bien compris le développement...
Un double-clic en feuille 'BRUT' démarre la macro ; résultats en 'Extract'
For x = 1 To UBound(tTab, 1)
If x > 1 And IsNumeric(tTab(x, 2)) Then
For y = IIf(x = 2, 5, 1) To 5
lgIdx = lgIdx + 1
ReDim Preserve tExtract(9, lgIdx)
tExtract(8, lgIdx - 1) = Choose(y, "anrpe;", "anrai:rc=" & vNb & ";", "anrsp:rc=" & vNb & ";", "", "anrpi:rc=" & tTab(x, 2) & ";")
Next
vNb = tTab(x, 2)
End If
lgIdx = lgIdx + 1
ReDim Preserve tExtract(9, lgIdx)
For y = 0 To 6
tExtract(y, lgIdx - 1) = tTab(x, y + 1)
Next
If x > 1 And tTab(x, 4) <> "" Then _
tExtract(7, lgIdx - 1) = "=""ansri:""&D" & lgIdx & "&"",R=""&E" & lgIdx & "&"",SP=""&F" & lgIdx & "&"",""&G" & lgIdx & "&"";""": _
tExtract(8, lgIdx - 1) = tExtract(7, lgIdx - 1)
Next
A+