Sub test()
Dim tableau, T(), I&, I2&, Lig&, T2(), x$, lig2&
tableau = [A2:A11].Value
For I = 1 To UBound(tableau)
For I2 = I + 1 To UBound(tableau)
Lig = Lig + 1: ReDim Preserve T(1 To Lig)
T(Lig) = tableau(I, 1) & " avec " & tableau(I2, 1)
If x <> tableau(I, 1) Then
lig2 = lig2 + 1: ReDim Preserve T2(1 To lig2)
T2(lig2) = tableau(I, 1) & " avec " & tableau(I2, 1)
x = tableau(I, 1)
End If
Next
Next
Range("c1:d1").Value = Array("tout les binomes possibles sans doublons ou verlan", "combinaison avec jamais le meme eleve(1)")
Cells(2, 3).Resize(UBound(T), 1) = Application.Transpose(T)
Cells(2, 4).Resize(UBound(T2), 1) = Application.Transpose(T2)
End Sub