Sub Tri_liste_Adversaire()
'
If MsgBox("Avez-vous enlever la protection sur la feuille ""DONNEES LIS"". Voulez-vous continuez ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
'
Dim a, b(), I As Long, j As Byte, x As Long, n As Long
With Sheets("DONNEES LIS").Range("j1").CurrentRegion
a = .Value
x = Application.Count(.Columns("f:i").Cells)
End With
ReDim b(1 To x, 1 To 4)
For j = 6 To UBound(a, 2)
For I = 2 To UBound(a, 1)
If a(I, j) = 1 Then
n = n + 1
b(n, 1) = j - 5
b(n, 2) = a(I, 2)
b(n, 3) = a(I, 5)
b(n, 4) = a(I, 4)
End If
Next
Next