Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim i As Integer, j As Integer
Dim ligne As Integer, derligne As Integer
Dim colonne As Byte
derligne = Range('a65536').End(xlUp).Row
tablo = Range('a1:a' & derligne)
ligne = 1: colonne = 3
For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo)
If Not i = j Then
Cells(ligne, colonne) = tablo(i, 1) & tablo(j, 1)
ligne = ligne + 1
If ligne > derligne - 1 Then colonne = colonne + 1: ligne = 1
End If
Next j
Next i
End Sub