Thierry,
si tu reviens un jour sur ton sujet...
Solution en VBA.
Une première boucle pour encoder les données brutes ainsi que le tableau intermédiaire (1,0) en [B10:BJ15].
For y = x To UBound(tTab, 1) Step 6
iFlag = iFlag + 1
tPg(iFlag, 1) = "V" & x
For Z = 2 To 27
tPg(iFlag, Z) = tTab(y, Z)
If Z < 6 Then tPg(iFlag, Z + 28) = tTab(y - (x - 1), Z + 28)
tPg(iFlag, Z + 35) = 0
For k = 30 To 33
If tTab(y, Z) = tTab(y - (x - 1), k) Then tPg(iFlag, Z + 35) = 1
Next
Next
Next
Une deuxième pour la synthèse en [AL20].
À noter que le tableau intermédiaire et le tableau 'tAdd' ne sont là que pour la démo.
Un fichier final n'en aurait pas besoin. La synthèse serait affichée en [AL10].
For y = 1 To UBound(tAdd, 2)
iFlag = 0
For Z = 1 To iIdx / 6
iFlag = iFlag + tPg(Z, y + 36)
tAdd(Z, y) = iFlag
Next
Next
Un double-clic sur la feuille 'BDD' démarre la macro.
A+, on ne sait jamais...