For Each sh In Worksheets
If Left(sh.Name, 5) = "Poule" Then
For i = 1 To nbep
For j = i + 1 To nbep
sh.Range("a65000").End(xlUp).Offset(1, 0) = sh.Cells(i + 1, 6) 'ColonneA
sh.Range("d65000").End(xlUp).Offset(1, 0) = sh.Cells(j + 1, 6) 'ColonneD
Next
Next