For I = 1 To rencontre Step 1
For J = 1 To NbJ Step 1
If bigtablo(J, L + 16) = I Then
If Sheets("P" & L).Cells(3 + I, 1).Value = "" Then
Sheets("P" & L).Cells(3 + I, 1).Value = bigtablo(J, 1)
numequipe = bigtablo(J, L + 1)
Else
If bigtablo(J, L + 1) = numequipe Then
If Sheets("P" & L).Cells(3 + I, 2).Value = "" Then
Sheets("P" & L).Cells(3 + I, 2).Value = bigtablo(J, 1)
Else
If Sheets("P" & L).Cells(3 + I, 3).Value = "" Then
Sheets("P" & L).Cells(3 + I, 3).Value = bigtablo(J, 1)
End If
End If
Else
If Sheets("P" & L).Cells(3 + I, 4).Value = "" Then
Sheets("P" & L).Cells(3 + I, 4).Value = bigtablo(J, 1)
Else
If Sheets("P" & L).Cells(3 + I, 5).Value = "" Then
Sheets("P" & L).Cells(3 + I, 5).Value = bigtablo(J, 1)
Else
Sheets("P" & L).Cells(3 + I, 6).Value = bigtablo(J, 1)
End If
End If
End If
End If
End If
Next J
Next I