Ha ! effectivement... il y a des doublon dans les colonnes. Je te propose une macro un peu plus longue à générer sur la base du carré Latin car je ne vois pas d'autre solution.
Ce code crée un carré latin en décalant les noms dans chaque ligne. Par exemple, si vos noms sont [A, B, C, D, E, F, G, H, I, J], alors la première ligne sera [A, B, C, D, E, F, G, H, I, J], la deuxième ligne sera [J, A, B, C, D, E, F, G, H, I], la troisième ligne sera [I, J, A, B, C, D, E, F, G, H], et ainsi de suite.
Sub CARRE_LATIN()
Dim ws As Worksheet
Dim arr As Variant
Dim i As Long, j As Long
Dim temp As Variant
Application.ScreenUpdating = False
Set ws = ThisWorkbook.Sheets("ASTREINTE")
arr = ws.Range("A3:A12").Value
ws.Range("B3:I12").ClearContents
For i = LBound(arr) To UBound(arr)
For j = 1 To 8
ws.Cells(i + 2, j + 1).Value = arr((i + j - 1) Mod UBound(arr) + 1, 1)
Next j
Next i
Application.ScreenUpdating = True
End Sub